杭州交通信息网eplan绘图软件下载:VB的问题~请大家帮我详细解释下~下面这段代码
来源：百度文库 编辑：杭州交通信息网 时间：2024/04/29 06:52:22
Private Sub cmdRead_Click()
Dim s1 As String
Text1.Text = ""
Open App.Path & "\doc.txt" For Input As #1
'将文本中所有字符读出
Do While Not EOF(1)
s1 = Input(1, #1)
If s1 <> Chr(34) Then '34是双引号的ASCII码
Text1.Text = Text1.Text + s1
If s1 = Chr(44) Then '44是逗号的ASCII码
Text1.Text = Mid(Text1.Text, 1, Len(Text1.Text) - 1) + ":"
End If
End If
Loop
Close #1
End Sub
Dim s1 As String
Text1.Text = ""
Open App.Path & "\doc.txt" For Input As #1
'将文本中所有字符读出
Do While Not EOF(1)
s1 = Input(1, #1)
If s1 <> Chr(34) Then '34是双引号的ASCII码
Text1.Text = Text1.Text + s1
If s1 = Chr(44) Then '44是逗号的ASCII码
Text1.Text = Mid(Text1.Text, 1, Len(Text1.Text) - 1) + ":"
End If
End If
Loop
Close #1
End Sub
单击cmdread按钮后，从该程序所在路径下文件名为“doc.txt”的文件中逐个读取字符，逐个以追加方式显示在文本框text1中，直到文件结束。显示时不显示文件中的双引号，并将所有逗号替换为冒号。