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

失心控丶

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


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


是很多行的。

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

最佳答案

月排行榜 / 总排行榜

向往青莲

2015-4-6 14:35:17

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

复制代码

跳转到最佳答案楼层

向往青莲

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

复制代码

782981223

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

taochen

{:1_1:}

失心控丶

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

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

taochen

{:1_1:}

向往青莲

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

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

千亩计者