- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 每一行，删除最后一个逗号及逗号之前的内容，然后追加保存 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=124677)
-- 发布时间：2018/9/11 19:56:00
-- 每一行，删除最后一个逗号及逗号之前的内容，然后追加保存
下面txt文件中，每一行，删除最后一个逗号及逗号之前的内容，然后追加保存
应该怎么写代码？
Dim str As String = FileSys.ReadAllText("d:\\123.txt") str = str.replace(" ","").replace(vbcr,"").replace(vblf,"") //如何替换这一行 str = vbcrlf & vbcrlf & str FileSys.WriteAllText("d:\\123.Txt", str , True)
| ||||
-- 发布时间：2018/9/11 20:41:00
--
Dim str As String = FileSys.ReadAllText("d:\\123.txt")
Dim arr() As String = str.replace(vbcr,"").Split(vblf)
For i As Integer = 0 To arr.Length - 1
Dim cr() As String = arr(i).Split(",")
arr(i) = cr(cr.Length - 1)
Next
FileSys.WriteAllText("d:\\123.Txt", String.Join(vbcrlf,arr) , True)