jchang 发表于 2008-9-4 22:13:46

关于记事本的读取请教

假设记事本里面有以下数据：
23   345      123       788      abb
567   4566            vsf      90g            677h

这些数据以空格分开(不一定是一个空格)，现要把记事本每行的第二，第四个数据放到excel中，请问这个脚本应该如何写呢？

[ 本帖最后由 jchang 于 2008-9-5 22:38 编辑 ]

顽固不化 发表于 2008-9-5 12:31:12

处理一下原始字串，怎么写到EXCEL中我不会。
$A="23   345      123       788 abb567   4566       vsf      90g    677h"
$A=StringStripWS(StringStripWS($A,1),2)
$C=""
For $I=1 To StringLen($A)
        $B=StringMid($A,$I,1)
        If $B=" " Then
                While 1
                        $I=$I+1
                        if $I>StringLen($A) then
                                $I=$I-1
                                ExitLoop
                        EndIf
                        $B=StringMid($A,$I,1)
                        if $B<>" " then
                                $I=$I-1
                                ExitLoop
                        EndIf
                WEnd
                $C=$C&","
        Else
                $C=$C&$B
        EndIf
Next
$D=StringSplit($C,",")
MsgBox(0,"","新数据串是："&$C&@CRLF&"总数据数："&$D&@CRLF&"第2、4数据是："&$D&"   "&$D)

jchang 发表于 2008-9-5 20:08:37

多谢指教！已经对我很有用处了

[ 本帖最后由 jchang 于 2008-9-5 22:36 编辑 ]
页: [1]
查看完整版本: 关于记事本的读取请教