没有人回答么 还请大家回答按一下
中国 北京 abc123日本 东京 ccb123
美国 纽约 xcx120
中国 山海 abc123
中国 南京 abc123
这是TXT中的内容 我想实现
输入2个条件 如在text1中输入 中国 text2中输入 南京
就能得到
中国 南京 abc123
请问如何实现 --------------------编程问答-------------------- select * from 表1 where 字段1 = '中国' and 字段2 = '南京' --------------------编程问答--------------------
Dim arr()
Private Sub Command1_Click()
Dim i, j As Integer
For i = 0 To UBound(arr, 2)
If Text1.Text = arr(0, i) And Text2.Text = arr(1, i) Then Text3.Text = arr(0, i) & " " & arr(1, i) & " " & arr(2, i)
Next
End Sub
Private Sub Form_Load()
Dim i, j, k As Integer
j = 0
Open "C:\01.txt" For Input As #1'C:\01.txt是你的txt文件和路径,可根据情况改动
Do Until EOF(1)
Line Input #1, nextline
iStr = Split(nextline, " ")
ReDim Preserve arr(2, j)
k = 0
For i = 0 To UBound(iStr)
If Trim(iStr(i)) <> "" Then
arr(k, j) = Trim(iStr(i))
k = k + 1
End If
Next
j = j + 1
Loop
Close #1
End Sub
补充：VB , 网络编程
