vb提取  A.txt  指定内容字符，保存到另外的 b.txt文件里，一行一条，请大家给指点下

请高人指定下

我告诉你个思路
可以先读取整个a.text  再搜索你需要的字符串   然后写入b.text

请教下， 能写个 代码吗
 
我想  提取 TXT 里 指定的内容，是循环查找指定的内容，如果找到 就把 一行全 保存到 另个 TXT文件里

dim  str1 as string ,flag as integer,str2 as string
open a.txt for input as #1
open b.txt for output as #2
do while  not eof(1)
line input #1,str1
flag=instr(str1,指定内容)
if flag<>0 then
str2=str2+str1
end if
loop
write #2,str2
close #2
close #1
不知道对不对？呵呵

谢谢，兄弟，你这个 代码，不好用

具体呢?

A.txt  内容如下，我就是要搜索 一个关键字，如果搜索到了就把”关键字“这一行所在的 第一个”/“符号前面的字符（淘宝的ID），全都提取出来，保存到B。TXT里  ，这个主要是 根据 游戏的 区和服务器，把客户分出来



海带_/2009.08.07 18:01:39/100.00/网趣旗舰店/双皇冠 地下城与勇士游戏币 DNF 网通 华北三区 华北3区 2200W
_娃娃愛美丽/2009.08.06 05:11:37/55.00/johnnyshol/【有现货】DNF 北京一区 地下城与勇士游戏币 北京1区 1000W=55元
03051991lb/2009.07.16 21:44:34/100.00/johnnyshol/【现货】DNF 西南区 地下城与勇士游戏币 西南一区 1820W=100元
0510xwp/2009.08.25 23:05:17/27.50/网趣旗舰店/双皇冠 地下城与勇士游戏币  DNF 电信 上海一区 上海1区 500W
0woaiyouxi0/2009.08.12 01:02:37/1.00/johnnyshol/地下城与勇士游戏币地下城与勇士金币DNF游戏币全区全服有货
13810224540jiao/2009.08.07 22:14:40/1.00/水浒店/【皇冠信誉】DNF游戏币地下城与勇士游戏币方便一元贴 1元
18962715849he/2009.08.12 12:18:02/0.55/梦里网商/【双皇冠】DNF江苏一区 地下城与勇士游戏币 电信区 江苏1区 10万
19821128b/2009.07.13 05:53:17/100.00/johnnyshol/地下城与勇士游戏币DNF游戏币华北一区DNF华北1区游戏币1760万
19860314cm/2009.07.24 19:12:05/48.00/johnnyshol/【有现货】DNF 四川二区 地下城与勇士游戏币 四川2区 1000W=48元
1988010c/2009.08.10 02:06:41/0.10/ljh440522/钻石信誉 地下城与勇士 DNF金币 dnf游戏币 山东三区 现货
1峰老/2009.08.01 15:44:07/40.00/网趣旗舰店/【双皇冠信誉】地下城与勇士DNF游戏币 电信 湖南四区 1000W
2008shane/2009.07.29 23:19:50/0.40/梦里网商/【双皇冠】DNF江西一区 地下城与勇士游戏币 电信区 江西1区 10万
2008wangqi_2009/2009.07.26 23:40:30/1.00/梦里网商/[梦里网商]梦里网络 DNF游戏币地下城与勇士游戏币 一元1元拍
2008yundong/2009.07.30 20:55:56/50.00/johnnyshol/【现货】DNF 福建1区 地下城与勇士游戏币 福建一区 1000W=50元
2511548w/2009.08.12 15:05:17/22.00/网趣旗舰店/双皇冠 地下城与勇士游戏币  DNF 电信 西北一区 西北1区 500W
251424549qq/2009.08.06 05:45:32/22.00/网趣旗舰店/【双皇冠信誉】地下城与勇士DNF游戏币 电信 西北一区 500W
25309778qwe/2009.07.27 12:23:52/1.00/梦里网商/[梦里网商]梦里网络 DNF游戏币地下城与勇士游戏币 一元1元拍
26828692love/2009.07.16 13:22:39/1.00/hld35/地下城与勇士全区全服游戏币 此贴仅为老客户购买专用
271547543qqcom/2009.08.07 13:51:32/0.54/梦里网商/【双皇冠】DNF 辽宁一区 地下城与勇士游戏币 网通区 辽宁1区10万
277076736_115896321/2009.08.10 03:03:47/25.00/网趣旗舰店/双皇冠 地下城与勇士游戏币  DNF 电信 上海三区 上海3区 500W
284564413gjx/2009.07.15 02:40:28/48.00/网趣旗舰店/【双皇冠信誉】地下城与勇士DNF游戏币 网通 河北一区 1000W
2区专卖/2009.08.29 12:00:43/0.47/梦里网商/【双皇冠】DNF四川二区地下城与勇士游戏币 电信区 四川2区10万
317055541zp/2009.07.28 22:44:13/1.00/网趣旗舰店/【双皇冠信誉】地下城与勇士DNF游戏币  全区全服顾客协议价  1元
3189998zcyb/2009.08.14 10:26:54/0.10/ljh440522/钻石信誉 地下城与勇士 DNF dnf 游戏币 河北一区 金币 拍前联系
330264830宁宁/2009.08.06 08:41:17/5.00/水浒店/【皇冠信誉】DNF西北一区地下城与勇士游戏币电信西北1区100w
341104361a/2009.07.20 21:39:01/6.30/hld35/【量大优惠&middot;DNF】地下城游戏币金币上海2区上海二区 100W
444526888qq/2009.07.20 07:12:35/53.00/johnnyshol/【现货】DNF游戏币 西北1区 地下城与勇士游戏币 西北一区 1000W





[ 本帖最后由 wuyuede 于 2009-9-30 23:59 编辑 ]

下面是搜索关键字的代码：
Private TargetPosition As Integer

Private Sub FindText(ByVal start_at As Integer)
Dim pos As Integer
Dim target As String
target = Text2.Text
pos = InStr(start_at, Text1.Text, target)
If pos > 0 Then
TargetPosition = pos
Text1.SelStart = TargetPosition - 1
Text1.SelLength = Len(target)
Text1.SetFocus
Else  
MsgBox "没找到！"
Text1.SetFocus
End If
End Sub
 

Private Sub command1_Click()
FindText 1
End Sub
Private Sub command2_Click()
FindText TargetPosition + 1
End Sub

接下来的读取"\" 以前的字符串 相信你可以搞定

看看以下代码！作个参考！
Private Sub Form_Load()
Open "c:\A.txt" For Input As #1
    a = StrConv(InputB(LOF(1), 1), vbUnicode)
    Text1.Text = a
Close #1
End Sub
 
Private Sub Command1_Click()
str1 = Text1.Text   
str2 = Text2.Text  在Text2中输入关键字
str3 = "/"
 
Do While Len(str1) > 50
where1 = Len(str1)
where2 = InStr(str1, str2)
where3 = InStr(str1, "/")
where4 = InStr(str1, vbCrLf)
 
result = Mid(str1, 1, where3) & vbCrLf
Text3 = Text3 & result     Text3 为结果，把它保存到.txt中就行了
str1 = Mid(str1, where4 + 1, where1 - where4)
Loop
 
End Sub