[已解决]求助。关于文本处理问题。

失心控丶

遇到个问题，文本处理怎么弄，
比如文本是  xxxx xxxxxxx @@ ·············


每行都有这个@@  想把@@包括后面的内容删除，每行。不是一行 或者几行


是很多行的。

希望好心人，大牛，基友们帮我写个，，用易语言   批处理  VBS等等都行。

最佳答案

月排行榜 / 总排行榜

向往青莲

2015-4-6 14:35:17

filename="123.txt" '这个是需要处理的文件
Wfilename = "write.txt" '这个是处理之后保存的文件
Dim text,filename,count,Wfilename,ss
Set obj = CreateObject("Scripting.FileSystemObject") 
set Wobj = CreateObject("scripting.filesystemobject")
set Wfile = Wobj.OpenTextFile(Wfilename, 2, true)
Set file = obj.OpenTextFile(filename,1) 
Do Until file.AtEndOfStream 
text = file.ReadLine 
ss = Split(text,"@@")
Wfile.write ss(0)
Wfile.write vbcrlf
count=count+1
Loop 
file.Close

跳转到最佳答案楼层

向往青莲

filename="123.txt" '这个是需要处理的文件
Wfilename = "write.txt" '这个是处理之后保存的文件
Dim text,filename,count,Wfilename,ss
Set obj = CreateObject("Scripting.FileSystemObject") 
set Wobj = CreateObject("scripting.filesystemobject")
set Wfile = Wobj.OpenTextFile(Wfilename, 2, true)
Set file = obj.OpenTextFile(filename,1) 
Do Until file.AtEndOfStream 
text = file.ReadLine 
ss = Split(text,"@@")
Wfile.write ss(0)
Wfile.write vbcrlf
count=count+1
Loop 
file.Close

782981223

额。。。你还用vb。。。。

taochen

{:1_1:}

失心控丶

向往青莲 发表于 2015-4-9 12:41

这是VBS脚本么，，咋运行不了呢？？

taochen

{:1_1:}

向往青莲

失心控丶 发表于 2015-4-9 15:32
这是VBS脚本么，，咋运行不了呢？？

测试成功..我才发了.......

千亩计者