Question

操作字符串的小程序需要高手帮忙！！！！

谁能帮帮我，我在百度里面发了求助，没人能干，只好到这个专业人士比较多的地方来，看哪位高手能帮帮忙。程序很简单，是我在学VB时写的，现在忘了怎么写。*XP＋VB.NET2003环境。*

程序打开“c:\aa.txt”文件，把文件中的每一个字符，单独取出来，Ascall码减去1，然后再组合成新的字符串。保存到“c:\bb.txt”文件中。

万分感谢！有人给了下面程序，但运行过后什么结果也没有！！！

Const forwriting = 1, tristateusedefault = -2, forreading = 1
Dim riji As String
Dim str As String
Dim qq As String
Dim i, x As Integer
Dim f, mm
Dim fso = CreateObject("scripting.filesystemobject")

f = fso.opentextfile("c:\aa.txt", forreading, True)
mm = f.readall
riji = CStr(mm)

Do While i = 1

For i = 1 To Len(riji)
str = str + Chr(AscW(Mid(riji, i, 1)) - 1)
Next i
str = str + ","
Loop

TextBox1.Text = str '程序运行后，在文本框里面什么也没有显示！为什么？

Answer 1

~

我没有用过VB.NET2003，我一直用的VB6。
我不知道VB.NET2003是不是用“+”来连接字符的，不过，vb6中是不是的，vb6的字符串连接是“&”来连接的。。

你把这个：

For i = 1 To Len(riji)
str = str + Chr(AscW(Mid(riji, i, 1)) - 1)
Next i
str = str + ","
Loop

改为：

For i = 1 To Len(riji)
str = str & Chr(AscW(Mid(riji, i, 1)) - 1)
Next i
str = str & ","
Loop

试下看

要不就是含有非打印字符导致了什么都没有。

对回答的内容有问题，或认为不妥，百度消息我。
（在消息的内容里加上问题的网址哦）