لنفرض ان لدينا ملف تيكست يحتوي على الآتي
zzzzzOSAMA*AOSAMA*BOSAMA*COSAMA*DOSAMA*EOSAMA*FOSAMA*iOSAMA*
والمطلوب ان نضع كل كلمة او حرف تعق بين osama* في ملف مستقل
والفكرة تعتمد على البحث عن كلمة osama* ثم نستخدم Put لنضع كل كلمة في ملف مستقل .. فكيف نكمل هذا الكود
هذا هو الكود
Dim S As String 'file context
Dim Fin As String
Dim oin As String
Dim P As String '
Dim LS As Long 'نتيجة البحث عن الكلمة التي تفصل بين الملفات
Dim L As Long '
Dim NU As String
Open Text1.Text For Binary As #4
S = Space(LOF(4))
Get #4, , S
'Print S
For x = 0 To 9
If x = 0 Then LS = InStr(4, S, "OSAMA*")
If x <> 0 Then LS = InStr(LS + 1, S, "OSAMA*")
List1.AddItem LS
Next x
If LS = 0 Then Exit Sub
For aaa = 0 To List1.ListCount Step 2
List1.Selected(aaa) = True
Fin = List1.Text
Print Fin
Next
For bbb = 1 To List1.ListCount Step 2
List1.Selected(bbb) = True
oin = List1.Text
Print oin
Next