Kako bi bilo da promeniš extenziju?

Pa ne znam iskreno,taj fajl dobijam kao odgovor od drugog programa i on mi ga salje u tim extenzijama.Taj fajl bih trebao da uvucem radi analize u svoj program.

Evo ti primjer mog prepisa gdje prepisujem u tablicu podatke iz *.txt fajla
Malo si ga proanaliziraj i prepravi ako ti pase

Private Sub Command1_Click()

Dim dato22 As Database
Dim rek22 As Recordset
Set dato22 = CurrentDb
Dim sqlupit22 As String
sqlupit22 = "select * from racuni"
Set rek22 = dato22.OpenRecordset(sqlupit22)


rbr = 1
Dim inputdata
Open "d:\banprep\racuni_po_kupcu.txt" For Input As #1
Do While Not EOF(1)
Line Input #1, inputdata
brdok = Mid(inputdata, 7, 3)
dokum = Mid(inputdata, 11, 8)
datdokum = Mid(inputdata, 22, 10)
dospijelo = Mid(inputdata, 35, 10)
izn = Mid(inputdata, 64, 15)
iznhr = Mid(inputdata, 81, 15)
valuta = Mid(inputdata, 59, 3)

If IsDate(datdokum) Then
Label2.Caption = Str(rbr)
rek22.AddNew
rek22.Fields("br_dok") = brdok
rek22.Fields("dokument") = dokum
rek22.Fields("dat_dokum") = datdokum
rek22.Fields("dospijece") = dospijelo
rek22.Fields("iznos") = izn
rek22.Fields("iznos_hrk") = iznhr
rek22.Fields("valuta") = valuta

rek22.Update
rbr = rbr + 1
End If

Loop
Close #1 ' Close file.
rek22.Close
Set dato22 = Nothing

MsgBox "podaci su prepisani"
End Sub

A dali mogu Trtko da taj fajl analiziram a da ga ne importujem access.Znaci da ga otvorim trazim podatak i zatvorim.

Mogao bi naravno , bilo koji fajl , sa bilo kojom ekstenzijom *. log *.ini, samo da je tekstualnog sadržaja
Napravio bi formu na kojoj bi bio datashit u kojem bi gledao podatke odabranog fajla, a njih bi birao s explorerom.

Moguće da ni Trtko ni ja nismo najbolje shvatili, ali ako samo želiš da pretražiš fajl i ustanoviš da li se neki tekst nalazi u fajlu možda bi trebalo da koristiš nešto ovako:


PS: Trle, tvoj kod iznad ne vraća dobru vrednost za rbr, na početku treba da bude rbr = 0.

Evo ti programci, napravio sam ga u accessu 2002
Jedino sto ti mora biti u Referencama ukljuceno Microsoft office 10,0 object library (ako ti javi gresku kod pretrage fajla)

To je to .Hvala na strpljenju i iscrpnim odgovorima.Svaka cast.I jos samo jedno pitanje.

Code:
Private Sub Command1_Click
NadjiTekst "d:\racuni\izdati.log", "tralala"
End Sub

Public Sub NadjiiTekst(KojiFile As String, KojiTekst As String)
Dim InputData As String
Dim Nadjeno As Boolean
Open KojiFile For Input As #1
Do While Not EOF(1)
Line Input #1, InputData
If Instr(1, InputData, KojiTekst) > 0 Then
Nadjeno = True
GoTo CloseFile ' Izlazi iz petlje
End If
Loop
CloseFile:
Close #1 ' Close file.
MsgBox "Tekst " & KojiTekst & " " & IIf(Nadjeno, "", "ni") & "je nadjen u datoteci " & KojiFile
End Sub

Da li se moze ubaciti pored "tralala" pretraga za jos neki teks da pored "tralala" trazi npr "papapa" i da kod ispituje fajl sve dok ne dobije jedan od ta dva odgovora.Moram da vas pitam jer radim u SQL a sa VB6 se borim.Mnogo ste mi olaksali zivot sa svojom pomocu.Hvala opet.

_{[Ovu poruku je menjao ombrs.do dana 16.01.2009. u 22:40 GMT+1]}

Da li moze sa

Public Sub NadjiiTekst(KojiFile As String, KojiTekst As String, Neki_Drugi_Tekst as String)
pa onda
ElseIf Instr(1, InputData, Neki_Drugi_Tekst) > 0 Then

To sam probao ,ali tako postavljen uslov mi opet izvrsi kod iako u fajlu nisam dobio odgovarajuci odgovor.Konkretno,odgovor dobijam tek nakon sto printer isprinta racun do kraja,a kod provjeri ga ranije i tako pogresno odreaguje.Cim sacekam ispis racuna sa nekim msbox da se racun isprinta,sve je ok,ali znate da ne treba racunati na necije strpljenje.Hvala

Uspio sam pravilno dodati uslove,kod se ponavlja sve dok ne dodje do rezultata.Imam samo problem kada dodje do rezultata zavrs sve kako treba,samo izbaci mi gresku da nije mogao pozvati taj kod.Kako da zaustavim sve kodove.