关于记事本的读取请教

jchang

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

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

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

顽固不化

处理一下原始字串，怎么写到EXCEL中我不会。

$A="  23   345      123       788 abb  567   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[0]&@CRLF&"第2、4数据是："&$D[2]&"   "&$D[4])

jchang

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

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