Pomoc oko koda za provjeru fajla u dva foldera

Pomoc oko koda za provjeru fajla u dva foldera 08.10.2009. u 19:53 · pre 207 meseci #1

Obracam vam se sa molbom jer ne mogu da rijesim problem
Imam kod

'------------------------------------------------------------
' PrintCkeck
'
'------------------------------------------------------------
Function PrintCkeck()
On Error GoTo PrintCkeck_Err

NadjiTekst "c:\Temp\Rac" & [Forms]![Osnovna tabela Q VP1]![Datum] & " " & [Forms]![Osnovna tabela Q VP1]![Index] & ".inp", ",ok;", ",er;", ",__;"

PrintCkeck_Exit:
Exit Function

PrintCkeck_Err:

Resume PrintCkeck_Exit

End Function

Kako da u gore navedenom NadjiTekst pored fajla c:\Temp\Rac....
pretrazim i fajl c:\Temp\Osnova\Rac....

Hvala unaprijed

Re: Pomoc oko koda za provjeru fajla u dva foldera 10.10.2009. u 00:37 · pre 207 meseci #2

Ne znam da li sam shvatio, ali je potrebno da pozoveš funkciju NadjiTekst još jednom za taj drugi fajl

Potpis

Ozbiljan i odgovoran mladić

Re: Pomoc oko koda za provjeru fajla u dva foldera 18.10.2009. u 08:44 · pre 207 meseci #3

Hvala na pomoci.Uradio sam to,ali imam jos jedno pitanje.Nako toga imam kod

Public Sub NadjiTekst(KojiFile As String, KojiTekst As String, KojiTekst1 As String, KojiTekst2 As String)
Dim InputData As String
Dim Nadjeno As Boolean
Open KojiFile For Input As #1
Do While Not EOF(3)
Line Input #1, InputData
If InStr(1, InputData, KojiTekst) > 0 Then
GoTo CloseFile ' Izlazi iz petlje
End If
Loop
CloseFile:
Close #1 ' Close file.
[Forms]![Osnovna tabela Q VP1]![Br FO] = Format(Mid([InputData], 35, 10), 0)
End

Kada nadje u fajlu KojiText uvjek mi da prvi red gdje se taj KojiText nalazi
da li moze da izbaci zadnji red sa tim tekstom

Hvala unaprijed

Re: Pomoc oko koda za provjeru fajla u dva foldera 19.10.2009. u 10:46 · pre 207 meseci #4

Pa pustio bi da ti taj text fajl procita do kraja, znaci nebi izasao van iz petlje , uvjek bi ti napunio zadnjeg nadjenog
u varijablu,

recimo ovako

Public Sub NadjiTekst(KojiFile As String, KojiTekst As String, KojiTekst1 As String, KojiTekst2 As String)
Dim nasao as string
Dim InputData As String
Dim Nadjeno As Boolean
Open KojiFile For Input As #1
Do While Not EOF(3)
Line Input #1, InputData
If InStr(1, InputData, KojiTekst) > 0 Then
nasao=inputdata
End If
Loop
CloseFile:
Close #1 ' Close file.
if isnull(nasao) or nasao="" then
msgbox " nema podataka"
else
[Forms]![Osnovna tabela Q VP1]![Br FO] = Format(Mid([nasao], 35, 10), 0)
endif
End

Forum kao aplikacija na telefonu

Srodne teme