文本替换的问题

Question

我想把一个文本文件,内容是
001  1号
002  2号
003  3号
..........
经过VB程序转换为A  1号       
B  2号  
C  3号
.....
请问代码怎么写?

Answer 1

用一个数组存储每一行的文件内容
1.打开文件用filesystemobject2.读文件
Dim txtStream As TextStream
Do Until txtStream.AtEndOfStream
    linestring = txtStream.ReadLine
    redim preserve FileString(1 to i) as string
    FileString(i)=Replace(linestring , Left(linestring , InStr(1, linestring , " ") - 1), Chr(64+i))
    i=i+1
Loopi初始值=1
chr(65)=A
chr(90)=Z
Replace(linestring , Left(linestring , InStr(1, linestring , " ") - 1), Chr(64+i))
这个是替换语句3.写入文件
3.1关闭当前文件
3.2用写状态打开
3.3循环写入
for i=1 to ubound(FileString)
  txtstream.writeline FileString(i)
next i定义了如下对象后，具体函数会自动显示，自己写对于提高很有帮助
Set ofs = New FileSystemObject
Dim txtStream As TextStream

Answer 2

Dim f As String, s As String
Dim head As String, newhead As String, spcPos As Integer
f = "d:\1.txt"
Open f For Input As #1
Open "d:\tmp.txt" For Append As #2
Do While Not EOF(1)
    Line Input #1, s
    spcPos = InStr(s, " ")
    head = Left(s, spcPos - 1)
    newhead = Chr(64 + Val(head))
    s = newhead & Mid(s, spcPos)
    Print #2, s
Loop
Reset
Kill "d:\1.txt"
Name "d:\tmp.txt" As "d:\1.txt"