VB中数据转换麻烦指导下VB代码该如何写：TXT文件中包含：直选复式4,5,7,9|2,3,6|1,2,7,9直选和值1,11,21说明:1、直选复式4,5,7,9|2,3,6|1,2,7,9中4,5,7,9对应百位,2,3,6对应十位,1,2,7,9对应个位（各位上最

Question

VB中数据转换
麻烦指导下VB代码该如何写：
TXT文件中包含：
直选复式4,5,7,9|2,3,6|1,2,7,9
直选和值1,11,21
说明:
1、直选复式4,5,7,9|2,3,6|1,2,7,9 中4,5,7,9 对应百位,2,3,6对应十位,
1,2,7,9对应个位（各位上最少1个号码,最多9个号码,从0-9.）.
分别取出一个数进行对位组合,如上面的百位去4 十位取2 个位取1 组成421.
最后结果为：
421
422
427
429
431
432
437
439
461
462
467
469
这样的.4的列举完了.还有5 7 9 的.最后总共应该有4*3*4种组合.
列出这些组合后,输出到直选.txt文件中
2、直选和值1,11,21
说明：1,11,21 指的和值意思是在000-999这1000种组合中各位之和等于1,11,21
的组合.和值范围为0（000）-27（999）.
当直选和值后面的数字有1时,列出000-999中和值等于1的所有组合
当直选和值后面的数字有2时,列出000-999中和值等于2的所有组合
依次类推.
列出这些组合后,输出到直选.txt文件中.

Answer 1

Dim s As String,s1 As String,t() As String
Dim t1() As String,t2() As String,t3() As String
Dim k1 As Integer,k2 As Integer,k3 As Integer
Open App.Path & "\123.txt" For Input As #1
Open App.Path & "\直选.txt" For Output As #2
Do Until EOF(1)
Line Input #1,s
If InStr(s,"直选复式") Then
t = Split(Replace(s,"直选复式",""),"|")
If UBound(t) = 2 Then
t1 = Split(t(0),",")
t2 = Split(t(1),",")
t3 = Split(t(2),",")
For k1 = 0 To UBound(t1)
For k2 = 0 To UBound(t2)
For k3 = 0 To UBound(t3)
Print #2,t1(k1) & t2(k2) & t3(k3)
Next
Next
Next
End If
ElseIf InStr(s,"直选和值") Then
t = Split(Replace(s,"直选和值",""),",")
For k1 = 0 To UBound(t)
For k2 = 0 To 999
s1 = Format(k2,"000")
If Val(Left(s1,1)) + Val(Mid(s1,2,1)) + Val(Right(s1,1)) = Val(t(k1)) Then Print #2,s1
Next
Next
End If
Loop
Close #2
Close #1