论坛 › 『 提问交流 』 › 文本处理大全

nity224 发表于 2014-3-3 15:09:02

文本处理大全

Hi，大家好。
平时的时候要文本处理，马上写又会比较麻烦。
有没有人一起写一个文本处理的小工具。{:face (229):}
希望大家多多补充，在做个GUI界面

比如把一个文本的每一行倒转一下，最后一行变第一行。。。。
Func _reverse($path)   
   $text = ""
   $readfile = FileOpen($path, 0)
   If $readfile = -1 Then Return -1
   $i = _FileCountLines($path)
   While($i >0)
          $text = $text & FileReadLine($readfile,$i) & @CRLF
          $i = $i -1
   WEnd
   FileClose($readfile)
   $writefile = FileOpen($path, 2)
   FileWriteLine($writefile, $text)
   FileClose($writefile)
   MsgBox(0,"","Finish !")
EndFunc

批量替换一个文本中的内容
Func _replace($path,$search,$replace)
   
   $text = ""
   $readfile = FileOpen($path, 0)
   If $readfile = -1 Then Return -1
   While 1          
          $text = $text & FileReadLine($readfile) & @CRLF
          If @error = -1 Then ExitLoop
   WEnd
   
   FileClose($readfile)
   
   $text = StringReplace ( $text, $search,$replace )
   $writefile = FileOpen($path, 2)
   FileWriteLine($writefile, $text)
   FileClose($writefile)
   MsgBox(0,"","Finish !")
   
EndFunc

给每一行的头尾分别加上一串字符串
Func _addHeadAndTail($path,$head,$tail)
      $text = ""
      $readfile = FileOpen($path, 0)
      If $readfile = -1 Then Return -1
      While 1
                        If @error = -1 Then ExitLoop
                        $text = $text & $head & FileReadLine($readfile)& $tail & @CRLF
      WEnd
      FileClose($readfile)
      $writefile = FileOpen($path, 2)
      If $writefile = -1 Then Return -1
      FileWriteLine($writefile, $text)
                _FileWriteToLine($path, _FileCountLines($path), "", 1)
      FileClose($writefile)
                MsgBox(0,"","Finish !")
EndFunc   ;==>

imlzr 发表于 2014-3-3 16:23:24

顶楼主，希望再多总结一些文本处理的函数出来。

menfan1 发表于 2014-3-3 17:53:13

文本处理是正则的强项

不死帝国 发表于 2014-3-5 09:33:46

这东西还是需要的时候动动脑好点；什么都要现成的；就没有意思了。但还是感谢楼主提供思路；这个比源码来得重要。

查看完整版本: 文本处理大全