Sto se tice prve stavke, dodajes ovo u funkciju Obradi:
Code:
Ulaz = Replace(Ulaz, "<BMSSpecialImport>", "")
Ulaz = Replace(Ulaz, "<PTMPatchStates version=" & Chr(34) & "1.0" & Chr(34) & "count=" & Chr(34) & "5895" & Chr(34) & ">", "")
Ulaz = Replace(Ulaz, "</PTMPatchStates>", "")
Ulaz = Replace(Ulaz, "</BMSSpecialImport>", "")
Fajl iz liste mozes zapamtiti na sledeci nacin:
Code:
For i = 0 to List1.ListCount
Izlaz = List1.List(i) & vbCrLf
Next i
cdlg.ShowSave
SaveText Izlaz, cdlg.FileName & ".txt"
To sto se ucitava isti fajl je zato sto sam ja ubacio u Text1 za svojstvo text, taj tekst. Ukoliko hoces da ti se ucitava fajl koji si poslednji snimio, morao bi u nekom externom fajlu da snimis adresu istog, a zatim sa Form_Load da ucitas