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

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

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

#include <file.au3>
#include<array.au3>
Dim $R
For $net1 = 1 To 100000000000
        $var = RegEnumKey("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall", $net1)
        If @error <> 0 Then ExitLoop
        $R[$net1] = "第" & $net1 & "键"
        $R[$net1] = $var
        ReDim $R
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
For $net1 = 1 To 100000000000
      $var = RegEnumKey("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall", $net1)
      If @error <> 0 Then ExitLoop
      $R[$net1] = "第" & $net1 & "键"
      $R[$net1] = $var
      ReDim $R
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
For $net1 = 1 To 100000000000
        $var = RegEnumKey("HKEY_LOCAL_MAC ...
bhffhzh 发表于 2015-4-16 23:24 http://www.autoitx.com/images/common/back.gif

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

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

很是奇怪，居然不能定入到记事本里。
bhffhzh 发表于 2015-4-17 17:41 http://www.autoitx.com/images/common/back.gif


    你把路径改下
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 http://www.autoitx.com/images/common/back.gif


    #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 http://www.autoitx.com/images/common/back.gif


   A大， 3.3.19好像可以哦..

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

A大， 3.3.19好像可以哦..
Huiseyu 发表于 2015-4-17 22:45 http://www.autoitx.com/images/common/back.gif


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

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

什么系统, 1 楼代码顶部加试试:
#RequireAdmin
131738 发表于 2015-4-17 19:11 http://www.autoitx.com/images/common/back.gif


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

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

嗯，LZ肯定不是支持2维数组的版本
afan 发表于 2015-4-17 22:50 http://www.autoitx.com/images/common/back.gif


    这个没想到，没什么经验。{:face (356):}

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

本帖最后由 bhffhzh 于 2015-4-17 23:29 编辑

回复 10# afan


    SciTE
程序版本:3.3.6
编译时间:Oct 25 2013 16:27:38
程序作者:Neil Hodgson.
版权所有:1998年十二月 - 2013年十月



这版本。


运行系统64位


顺便推荐一下哪个版本最好

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()
页: [1] 2
查看完整版本: 数组转化问题，有空的朋友帮瞧下[已经解决]