|
質問内容に曖昧な部分がありますが、ユーザーフォームに配置した
テキストボックスのことだとして、テキストファイルの区切り文字が、
スペースか、または、TABの場合は、こんな感じで如何でしょうか。
この内容からは、多分、テキストファイルから直接読込みたいのでは・・・?
条件が違う場合は、適当にイジッテくださいね。
Private Sub TextBox1_AfterUpdate()
Dim Fnum As Integer
Const Fname = "C:\Data\ファイル名.txt"
Dim LineData As String
Dim Ary
Fnum = FreeFile
Open Fname For Input As Fnum
Do Until EOF(Fnum)
Input #Fnum, LineData
Ary = Split(LineData, " ") ' TAB区切りの場合は、 vbTab
If Ary(0) = Me.TextBox1.Value Then
Me.TextBox2.Value = Ary(1)
Me.TextBox3.Value = Ary(2)
Me.TextBox4.Value = Ary(3)
Exit Do
End If
Me.TextBox2.Value = ""
Me.TextBox3.Value = ""
Me.TextBox4.Value = ""
Loop
Close #Fnum
End Sub
|
|