Question

vb 根据文本框的数字读取文本

如何让我的程序在点击一个按钮后根据text1文本框里的数字读取相应的文本，例如：用户text1文本框里输入“21”然后点击这个按钮，然后程序读取“music\url\21.txt"文本文档里的内容，并且把里面的内容写进text1文本框里。输入”22“，就读取"music\url\22.txt"输入”23“，就读取”music\url\23.txt"……如此类推

Answer 1

open "c:\music\url\" & text1.text & ".txt for input as #250 团队“古木林”的团长——巫师 的完善答案：代码：Private Sub Command1_Click()
On Error GoTo E
Dim FileName As String
Dim Temp As String
FileName = App.Path & "\music\url\" & Text1.Text & ".txt"
Text1.Text = ""
Open FileName For Input As #1
Do While Not EOF(1)
Line Input #1, Temp
Text1.Text = Text1.Text & Temp & vbCrLf
Loop
Text1.Text = Left(Text1.Text, Len(Text1.Text) - 2) '删除多余的回车符号，占用两个字位
Close #1
Exit Sub
E:
MsgBox Error, , "错误"
End Sub
为了让Text能换行显示并有滚动条，我们将修改一些属性: ————————————————————————————————我把源码发到你的邮箱里去，你去看看吧。还有，我们急需采纳，请尽快采纳我们。谢谢！ 我们这是VB 6.0的，不是.net的

Answer 2

Private Sub Command1_Click()
Dim a, txt As String
a = "F:\12\" & Text1.Text & ".txt" ‘“F:\....”文件位置
Text1.Text = ""
Open a For Input As #1
Do While Not EOF(1)
Line Input #1, txt
Text1 = Text1 + txt + vbNewLine
Loop
Close #1
End Sub

Answer 3

dim urlurl="music\url\"+text1.text+".txt"'下面只要读取变量url就行了