数组转化问题，有空的朋友帮瞧下[已经解决]

bhffhzh · 发表于 2015-4-16 23:24:14

本帖最后由 bhffhzh 于 2015-4-18 12:49 编辑

#include <file.au3>
#include<array.au3>
Dim $R[2][2]
For $net1 = 1 To 100000000000
$var = RegEnumKey("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall", $net1)
If @error <> 0 Then ExitLoop
$R[$net1][0] = "第" & $net1 & "键"
$R[$net1][1] = $var
ReDim $R[UBound($R) + 1][2]
Next

;_ArrayDisplay($R, "")
FileDelete("c:\ok.txt")
FileWrite("c:\ok.txt", _ArrayToString($R, @CRLF))

MsgBox(0,"提示","已经生成请检查！")

生成出来是空的。

Huiseyu · 发表于 2015-4-17 02:06:35

你看看c:\ok.txt 是不是空的？

#include <file.au3>
#include<array.au3>

Dim $R[2][2]
For $net1 = 1 To 100000000000
        $var = RegEnumKey("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall", $net1)
        If @error <> 0 Then ExitLoop
        $R[$net1][0] = "第" & $net1 & "键"
        $R[$net1][1] = $var
        ReDim $R[UBound($R) + 1][2]
Next
Local $Result = _ArrayToString($R, @CRLF)
;_ArrayDisplay($R, "")
FileDelete("c:\ok.txt")
FileWrite("c:\ok.txt", $Result)

MsgBox(0,"提示","已经生成请检查！"&$Result)
ShellExecute("c:\ok.txt")

bhffhzh · 发表于 2015-4-17 17:41:54

很是奇怪，居然不能定入到记事本里。

131738 · 发表于 2015-4-17 19:11:07

#include
#include
Dim $R[2][2]
For $net1 = 1 To 100000000000
$var = RegEnumKey("HKEY_LOCAL_MAC ...
bhffhzh 发表于 2015-4-16 23:24

什么系统, 1 楼代码顶部加试试:
#RequireAdmin

Huiseyu · 发表于 2015-4-17 20:17:32

很是奇怪，居然不能定入到记事本里。
bhffhzh 发表于 2015-4-17 17:41

你把路径改下
C:\ok.txt
ok.txt

Huiseyu · 发表于 2015-4-17 20:20:16

本帖最后由 Huiseyu 于 2015-4-17 20:24 编辑

什么系统, 1 楼代码顶部加试试:
#RequireAdmin
131738 发表于 2015-4-17 19:11

#RequireAdmin ，这个其实在这里确实有这不一定的说法，（如果C：\ 有Everyone的文件写入限制，就只能建立文件夹了^_^_）
让他把路径改下试试

afan · 发表于 2015-4-17 22:34:36

_ArrayToString() 不能转换2维数组。

afan · 发表于 2015-4-17 22:43:00

如果要导出到文本，1#无疑是走弯路

Local $sR = '', $net1, $var, $sFile = 'c:\ok.txt', $hFO
For $net1 = 1 To 100000000000
        $var = RegEnumKey('HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall', $net1)
        If @error Then ExitLoop
        $sR &= '第' & $net1 & '键' & '=' & $var & @CRLF
Next
$hFO = FileOpen($sFile, 2 + 8)
FileWrite($hFO, $sR)
FileClose($hFO)
MsgBox(0, $sFile, FileRead($sFile))

Huiseyu · 发表于 2015-4-17 22:45:27

_ArrayToString() 不能转换2维数组。
afan 发表于 2015-4-17 22:34

A大， 3.3.19好像可以哦..

afan · 发表于 2015-4-17 22:50:25

A大， 3.3.19好像可以哦..
Huiseyu 发表于 2015-4-17 22:45

嗯，LZ肯定不是支持2维数组的版本

Huiseyu · 发表于 2015-4-17 22:56:05

什么系统, 1 楼代码顶部加试试:
#RequireAdmin
131738 发表于 2015-4-17 19:11

哦，我看错了，记事本都可以成功打开的话，那就不是权限问题了。
看错了看错了。--！
131738，im sorry。

Huiseyu · 发表于 2015-4-17 22:59:53

嗯，LZ肯定不是支持2维数组的版本
afan 发表于 2015-4-17 22:50

这个没想到，没什么经验。

bhffhzh · 发表于 2015-4-17 23:08:18

afan · 发表于 2015-4-17 23:47:45

够用就好

netegg · 发表于 2015-4-18 12:05:49

本帖最后由 netegg 于 2015-4-18 12:14 编辑

#Include <WinAPIEx.au3>
#Include <File.au3>
_WinAPI_RegQueryMultipleValues
_FileWriteFromArray()

		自动登录	找回密码
密码			加入

[AU3基础] 数组转化问题，有空的朋友帮瞧下[已经解决]

相关帖子

本帖子中包含更多资源

本帖子中包含更多资源