论坛 › 已解决问题区 › 如何把这样的文本装入2维数组[已解决]

oceanwind 发表于 2012-7-10 18:15:30

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

本帖最后由 oceanwind 于 2012-7-10 20:26 编辑


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

afan 发表于 2012-7-10 18:35:46

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

oceanwind 发表于 2012-7-10 19:54:50

咋显示不了内容呢?
#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 = []
For $i = 0 To UBound($aSR) - 1 Step 3
      $zlhy[($i + 4) / 3] = $aSR[$i]
      $zlhy[($i + 4) / 3] = $aSR[$i + 1]
      $zlhy[($i + 4) / 3] = $aSR[$i + 2]
Next
_ArrayDisplay($zlhy, '')

afan 发表于 2012-7-10 19:56:44

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


    你为什么要画蛇添足呢？

oceanwind 发表于 2012-7-10 20:01:35

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

afan 发表于 2012-7-10 20:02:47

回复afan
我只加了一个文件路径啊
oceanwind 发表于 2012-7-10 20:01 http://www.autoitx.com/images/common/back.gif


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

oceanwind 发表于 2012-7-10 20:05:52

回复 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 = []
For $i = 0 To UBound($aSR) - 1 Step 3
      $zlhy[($i + 4) / 3] = $aSR[$i]
      $zlhy[($i + 4) / 3] = $aSR[$i + 1]
      $zlhy[($i + 4) / 3] = $aSR[$i + 2]
Next
_ArrayDisplay($zlhy, '')

afan 发表于 2012-7-10 20:14:03

本帖最后由 afan 于 2012-7-10 20:15 编辑

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


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

oceanwind 发表于 2012-7-10 20:27:23

回复 8# afan
灰常感谢

ooxxgod 发表于 2012-7-10 22:04:00

A版详细的教学

查看完整版本: 如何把这样的文本装入2维数组[已解决]