Srodne teme
Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

Pomoc oko koda za provjeru fajla u dva foldera

[es] :: Access :: Pomoc oko koda za provjeru fajla u dva foldera

[ Pregleda: 1980 | Odgovora: 3 ] > FB > Twit

Postavi temu Odgovori

Autor
Pretraga teme: Traži
Markiranje Štampanje RSS

ombrs.do
Ristic Aleksandar
Administrator

Član broj: 170168
Poruke: 140
79.143.171.*



Profil

icon Pomoc oko koda za provjeru fajla u dva foldera08.10.2009. u 18:53 - pre 176 meseci
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
 
Odgovor na temu

domaci_a_nas
PHP developer

Član broj: 42333
Poruke: 524
*.dynamic.sbb.rs.



+8 Profil

icon Re: Pomoc oko koda za provjeru fajla u dva foldera09.10.2009. u 23:37 - pre 176 meseci
Ne znam da li sam shvatio, ali je potrebno da pozoveš funkciju NadjiTekst još jednom za taj drugi fajl
Ozbiljan i odgovoran mladić
 
Odgovor na temu

ombrs.do
Ristic Aleksandar
Administrator

Član broj: 170168
Poruke: 140
79.143.169.*



Profil

icon Re: Pomoc oko koda za provjeru fajla u dva foldera18.10.2009. u 07:44 - pre 176 meseci
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
 
Odgovor na temu

Trtko
Koprivnica

Član broj: 69494
Poruke: 695
87.252.128.*



+8 Profil

icon Re: Pomoc oko koda za provjeru fajla u dva foldera19.10.2009. u 09:46 - pre 176 meseci
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
 
Odgovor na temu

[es] :: Access :: Pomoc oko koda za provjeru fajla u dva foldera

[ Pregleda: 1980 | Odgovora: 3 ] > FB > Twit

Postavi temu Odgovori

Srodne teme
Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.