主题: 一道习题该如何作

有两个普通的文本文件a.txt和b.txt，其中有数字，字母，汉字
模块一：把工a.txt 中的用到的汉字取出来，放到c.txt中（不能重复）
模块二：把b.txt 中与c.txt中重复的字删除，字后有空格的一并删除，结果存入d.txt中

哪位老师给用VB写下代码，谢谢了。

[此贴被鸠摩罗什于2006-8-6 8:52:43编辑过]

有没有对VB有研究的啊?
大家交流一下 !

这个问题留给九头鸟应该没问题！不过他现在有小鸟了！几乎没时间上网，可能得过一段时间。

这个由“百度知道”（这是个问事的好去处）的lyer提供，谢谢他了：
模块一:
Dim i, lyer, liu, a, pal, x, xuhuaiyu As Boolean
Open "a.txt" For Input As #1
Do While Not EOF(1)
Line Input #1, a
liu = liu & vbCrLf & a
Loop
Close #1
For i = 1 To Len(liu) - 1
If Asc(Mid(liu, i, 1)) <; 0 Then
xuhuaiyu = False
pal = Mid(liu, i, 1)
For x = 1 To Len(lyer) - 1
If Mid(lyer, x, 1) = pal Then xuhuaiyu = True
Next
If xuhuaiyu = False Then lyer = lyer & pal
Next
Open "c.txt" For Output As #1
Print #1, lyer
Close #1
模块二:
Dim i, lyer(), liu, a, liu2, lyer2(), x, wilbeR, pan
Open "b.txt" For Input As #1
Do While Not EOF(1)
Line Input #1, a
liu = liu & vbCrLf & a
Loop
Close #1
Open "c.txt" For Input As #1
Do While Not EOF(1)
Line Input #1, a
liu2 = liu2 & vbCrLf & a
Loop
Close #1
ReDim lyer(Len(liu) - 1)
ReDim lyer2(Len(liu2) - 1)
For i = 1 To Len(liu) - 1
lyer(i - 1) = Mid(liu, i, 1)
Next
For i = 1 To Len(liu2) - 1
lyer2(i - 1) = Mid(liu2, i, 1)
Next
For i = 1 To Len(liu) - 1
For x = 1 To Len(liu2) - 1
If lyer(i) = lyer2(x) Then lyer(i) = "WU HA"
If lyer(i) = " " Then lyer(i) = "WU HA"
Next x
Next i
For i = 1 To Len(liu) - 1
pan = lyer(i)
If pan = "WU HA" Then pan = ""
wilbeR = wilbeR & pan
Next i
Open "d.txt" For Output As #1
Print #1, wilbeR
Close #1



'注：a.txt b.txt 需放在程序目录下
'VB6 sp6 @ Win XP 调试成功