如何把这样的文本装入2维数组[已解决]

oceanwind

如图有18行3列
想把它装入$zlhy[18][3]
不晓得如何着手
请指教
谢谢先
附档为所需的文本文件

afan

#include <Array.au3>
Local $Str = FileRead('zlhy.txt')
Local $aSR = StringRegExp($str, '\S+', 3)
If @Error Then Exit
Local $zlhy[UBound($aSR) / 3 + 1][3] = [[UBound($aSR) / 3]]
For $i = 0 To UBound($aSR) - 1 Step 3
        $zlhy[($i + 4) / 3][0] = $aSR[$i]
        $zlhy[($i + 4) / 3][1] = $aSR[$i + 1]
        $zlhy[($i + 4) / 3][2] = $aSR[$i + 2]
Next
_ArrayDisplay($zlhy, '')

oceanwind

咋显示不了内容呢?
#include <Array.au3>
$filezlhy = FileOpen("D:\Stock\LKQH\zlhy.txt", 1)
Local $Str = FileRead($filezlhy)
Local $aSR = StringRegExp($str, '\S+', 3)
Fileclose($filezlhy)
If @Error Then Exit
Local $zlhy[UBound($aSR) / 3 + 1][3] = [[UBound($aSR) / 3]]
For $i = 0 To UBound($aSR) - 1 Step 3
        $zlhy[($i + 4) / 3][0] = $aSR[$i]
        $zlhy[($i + 4) / 3][1] = $aSR[$i + 1]
        $zlhy[($i + 4) / 3][2] = $aSR[$i + 2]
Next
_ArrayDisplay($zlhy, '')

afan

咋显示不了内容呢?
#include
$filezlhy = FileOpen("D:\Stock\LKQH\zlhy.txt", 1)
Local $Str = FileRe ...
oceanwind 发表于 2012-7-10 19:54

    你为什么要画蛇添足呢？

oceanwind

回复 4# afan
我只加了一个文件路径啊

afan

回复  afan
我只加了一个文件路径啊
oceanwind 发表于 2012-7-10 20:01

    仔细看看你添加了哪个致命的错误…

oceanwind

回复 6# afan
哦 对了 是我错了
这样才对
#include <Array.au3>
Local $Str = FileRead('D:\Stock\LKQH\zlhy.txt')
Local $aSR = StringRegExp($str, '\S+', 3)
If @Error Then Exit
Local $zlhy[UBound($aSR) / 3 + 1][3] = [[UBound($aSR) / 3]]
For $i = 0 To UBound($aSR) - 1 Step 3
        $zlhy[($i + 4) / 3][0] = $aSR[$i]
        $zlhy[($i + 4) / 3][1] = $aSR[$i + 1]
        $zlhy[($i + 4) / 3][2] = $aSR[$i + 2]
Next
_ArrayDisplay($zlhy, '')

afan

回复  afan
哦 对了 是我错了
这样才对
#include
Local $Str = FileRead('D:\Stock\LKQH\zlhy.txt')
...
oceanwind 发表于 2012-7-10 20:05

    画蛇添足是因为这里根本无需 FileOpen
致命错误是 FileOpen 你加了第二个参数 1，不加或者加0都还不至于出错。
还有 Fileclose($filezlhy) 应该加在 Local $Str = FileRead($filezlhy) 后面，否则 If @Error Then Exit 将无意义。
最后，解决了应该编辑标题，加注“已解决”

oceanwind

回复 8# afan
灰常感谢

ooxxgod

A版详细的教学