VB关于文本文件处理的问题

来源：百度知道 编辑：UC知道 时间：2024/06/05 02:20:26
有一个文本文件内容是这样的：
000001,6226458763125487,女,王丽亚,wang,li,ya 亚,wang,li,ya,2009,987123479017837489203748397889283892,MD5A
000002,6226458763125487,女,彭丽 ,wang,li,ya ,2009,987123479017837489203748397889283892,YL1A
000003,6226458763125487,男,王东,wang,li,ya ,2009,987123479017837489203748397889283892,MD5A
000004,6226458763125487,男,陈杰斌,wang,li,ya ,2009,987123479017837489203748397889283892,MD5P
000005,6226458763125487,女,杜丽,wang,li,ya ,2009,987123479017837489203748397889283892,YL1P
000006,6226458763125487,男,孙小鹏,wang,li,ya ,2009,987123479017837489203748397889283892,MD5A
000007,6226458763125487,男,郝延,wang,li,ya ,2009,987123479017837489203748397889283892,MD3A
000008,6226458763125487,女,王家洛,wang,li,ya ,2009,987123479017837489203748397889283892,YL5A
000009,6226458763125487,男,孙起明,wang,li,ya ,2009,9871234790178374892037483978892838

判断啊
dim temp as string
dim s1 as string '存储MD记录
dim s2 as string '存储YL记录
open "本来的文件.txt" for input as #1
do while not eof(1)
line input #1 , temp
'读出每条记录，然后判断含有的字段
if left(right(temp,4),2) = "MD" then
s1 = s1 & temp & vbcrlf
else
s2 = s2 & temp & vbcrlf
end if
loop
close #1

'把含有MD的记录存在MD.txt里
open "MD.txt" for output as #2
print #2,s1
close #2
'把含有YL的记录存在YL.txt里
open "YL.txt" for output as #3
print #3,s2
close #3

设类似“0000010,6226458763125487,女,陈冬芬,wang,li,ya ,2009,987123479017837489203748397889283892,MD9B”
为s as string
dim i
i = InStr(1, ss, "MD")
如过i=0就不包含MD
如果i<>0就包含MD