Question

用vb编写一个可以在文本文件的指定位置添加字符的程序,求源代码,例子见问题补充.

在"[00:01.50]时间煮雨[00:02.99]作词：郭敬明[00:04.65]作曲：刘大江[00:05.59]演唱：郁可唯"中的"["前添加一个回车,使它变成"
[00:01.50]时间煮雨
[00:02.99]作词：郭敬明
[00:04.65]作曲：刘大江
[00:05.59]演唱：郁可唯"
源代码好用的话追加5分

Answer 1

可以试试Split

Text1.text是没有加回车的文本

Private Sub Command1_Click()
Dim Tmp() as string
Dim Tmp2 as string
Dim I as integer
tmp=split(text1.text,"[")
tmp2=""
for i=0 to ubound(tmp)
tmp2=tmp2 & vbcrlf & tmp(i)
next i
Text2.text=tmp2 '要设置多行  Multi???那个属性
End Sub

纯手打。。因为没装VB，如果有错误请谅解。谢谢

追问

这个split试过了，不行。而且是文本文件，不是文本，如图，可以按修改一次性修改一整个文件夹里文件的内容

追答

这个也是一样的道理吧。。只不过多了加载文件的那个过程。Split是可以的，不过后来想了下还是直接用replace好一点。

菜单栏→工程→引用→Microsoft Scripting Runtime

Private Sub cmdChange_Click() '修改按钮
Dim Pth As String
Dim Tmp(0 To 1) As String
Dim FSO As New FileSystemObject
Dim Fldr As Folder
Dim F As File
Pth = Dir1.Path
Set Fldr = FSO.GetFolder(Pth) 'DirListBox的路径
For Each F In Fldr.Files
Tmp(0) = ""
    Open Pth & "\" & F.Name For Input As #1
    Do While Not EOF(1)
    Line Input #1, Tmp(1)
    Tmp(0) = Tmp(0) & Tmp(1)
    Loop
    Close #1
    Tmp(0) = Replace(Tmp(0), "[", vbCrLf & "[")
    Tmp(0) = Replace(Tmp(0), vbCrLf & " ", Chr(0))
    Open Pth & "\" & F.Name For Output As #1
    Print #1, Tmp(0)
    Close #1
Next
End Sub

Answer 2

1. 首先你使用VB把文件的内容全部读取出来（放在字符变量里面）

2. 对字符串变量处理（根据“[”识别,把每个字段存储在字符数组里面）

3. 把字符数组重新保存(每次存储时加个回车符号)

追问

能不能说的详细点，具体要用什么语句或函数？