[已解决]请教下 写了个读TXT文件一行的3个段不清楚怎么循环读文本每一行的

王王

各位大侠帮看下  先谢谢了

假如uuss.txt内容为
11111%11125522%2222445
kkkk   % kioll   % 554d    r
fdgfggdg% .;;;;, %645552
kkllklk%kjhhu       %   21525
......
.....
....
...
..
.



$Biaot1 = FileReadLine("D:\uuss.txt", 1)
$shuliang1 = StringInStr ( $Biaot1 , "%" , 0 ,1 )
$shuliang2 = StringInStr ( $Biaot1 , "%" , 0 ,2 )
$shuliang3 = StringInStr ( $Biaot1 , "%" , 0 ,3 )

$neirong1 = ($shuliang1)-1
$neirong2 = ($shuliang2)-1
$neirong3 = ($shuliang3)-1

$guanjianzi1 = ($shuliang1)+1
$guanjianzi2 = ($shuliang2)+1
$guanjianzi3 = ($shuliang3)+1

$weishu2 = ($shuliang2)-($guanjianzi1)
$weishu3 = ($shuliang3)-($guanjianzi2)

$result = StringMid ( $Biaot1, 1  , $neirong1
$result2 = StringMid ( $Biaot1, $guanjianzi1  , $weishu2)
$result3 = StringMid ( $Biaot1, $guanjianzi2  , $weishu3)

$kongbai = StringStripWS($result,8)
$kongbai2 = StringStripWS($result2,8)
$kongbai3 = StringStripWS($result3,8)
MsgBox("","1内容",$result)
MsgBox("","2内容",$result2)
MsgBox("","3内容",$result3)
MsgBox("","1除空白内容",$kongbai)
MsgBox("","2除空白内容",$kongbai2)
MsgBox("","3除空白内容",$kongbai3)

powerofos

我按捺住了性子看完了您的帖子，StringSplit()

王王

我按捺住了性子看完了您的帖子，StringSplit()
powerofos 发表于 2011-8-11 19:49

    没看懂啊，老大
  我每1行的3个值分别要赋予另外程序的对应的3个变量，另一个程序需要同时使用 1000行的3个值
  怎么实现？我就循环那里卡着了头昏了

水木子

确实没看明白你说的什么！

powerofos

回复 3# 王王


既然我在论坛帮助板块也帮不了大忙，那就随便发个例子给你吧，BTW，多看帮助。

#Include <File.au3>

Dim $Txt,$Open,$Close,$LineCount,$String,$SSplit,$StringEx

$Txt = @ScriptDir&"\test.txt"

$LineCount = _FileCountLines($Txt)
If @error Or $LineCount = 0 Then Exit

$Open = FileOpen($Txt)
For $i = 1 To $LineCount
        $String = FileReadLine($Open,$i)
        If @error Then ExitLoop
        $SSplit = StringSplit($String,"%")
        If @error Then
                MsgBox(0,"Error","行"&$i&"未发现分隔符")
        Else
                $StringEx = "元素数量"
                For $Ele In $SSplit
                        $StringEx = $StringEx&$Ele&@CRLF
                Next
                MsgBox(0,"Success","行:"&$i&@CRLF&$StringEx)
        EndIf
Next        
FileClose($Open)

王王

回复  王王


既然我在论坛帮助板块也帮不了大忙，那就随便发个例子给你吧，BTW，多看帮助。
powerofos 发表于 2011-8-11 21:17

    谢谢powerofos 了  这个运行错误了
我早上起来想起 才发现昨天进牛角尖了，直接加循环就可以了

$i = 0
do$Biaot1 = FileReadLine("D:\uuss.txt", $i)
$shuliang1 = StringInStr ( $Biaot1 , "%" , 0 ,1 )
$shuliang2 = StringInStr ( $Biaot1 , "%" , 0 ,2 )
$shuliang3 = StringInStr ( $Biaot1 , "%" , 0 ,3 )

$neirong1 = ($shuliang1)-1
$neirong2 = ($shuliang2)-1
$neirong3 = ($shuliang3)-1

$guanjianzi1 = ($shuliang1)+1
$guanjianzi2 = ($shuliang2)+1
$guanjianzi3 = ($shuliang3)+1

$weishu2 = ($shuliang2)-($guanjianzi1)
$weishu3 = ($shuliang3)-($guanjianzi2)

$result = StringMid ( $Biaot1, 1  , $neirong1
$result2 = StringMid ( $Biaot1, $guanjianzi1  , $weishu2)
$result3 = StringMid ( $Biaot1, $guanjianzi2  , $weishu3)

$kongbai = StringStripWS($result,8)
$kongbai2 = StringStripWS($result2,8)
$kongbai3 = StringStripWS($result3,8)
MsgBox("","1内容",$result)
MsgBox("","2内容",$result2)
MsgBox("","3内容",$result3)
MsgBox("","1除空白内容",$kongbai)
MsgBox("","2除空白内容",$kongbai2)
MsgBox("","3除空白内容",$kongbai3)
$i = $+1
until $i = 1000


你这个例子我下去理解理解 谢谢了