按键精灵在文本里逐行识别某一标点，并吧标点后的字删除？

Question

比如在TXT文本里的内容为：
0.jpg
01.torrent
002.gif
301.rar
357.rmvb
3501.jpeg
............
我想把每一行“.”后面的文字删除，可以做到吗？

Answer 1

Dim 文件名,MyString,Text
//向目标文件(".\Log.txt")读出文本内容到变量(Text)
Text = Plugin.File.ReadFileEx("d:\Log.txt")
MessageBox Text
MyString = Split(Text, "|")
数量 = UBound(MyString)
For f = 0 To 数量
文件名 = Split(MyString(f), ".")

If MyString(f) <> "" Then
MessageBox 文件名(0)
文件名单 = 文件名单 &文件名(0)& "|"
MessageBox 文件名单
End If

Next追问

这个跟我想的有些差距，我想执行完程序后，在原来的文档（或另一文档）里留下（或输入）内容为：
0
01
002
301
357
3501
..........
望大神耐心支招，拜托了!

追答

没看清楚,可以另开那就简单了.
Dim 文件名,MyString,Text
//向目标文件(".\Log.txt")读出文本内容到变量(Text)
文件="d:\Log"
Text = Plugin.File.ReadFileEx(文件&".txt")
MessageBox Text
MyString = Split(Text, "|")
数量 = UBound(MyString)
For f = 0 To 数量
文件名 = Split(MyString(f), ".")

If MyString(f) "" Then
MessageBox 文件名(0)
文件名单 = 文件名单 &文件名(0)& "|"
MessageBox 文件名单
End If
//判断文件(文件&"1.txt")是否存在,如有删除.

//写文件,没有自动创建.
Text = Plugin.File.WriteFileEx(文件&"1.txt")//正在用按键.凭记忆写的.你可以在文件插件中找看看
Next
本来相直接改写的,上论坛问了两天没答案.
只有用我的土方法了,就是先删除在重新创建一个,在写入.

Answer 2

可以的。。。追问

真的？求代码~