[es] - Brojanje zareza i pronalazak navodnika

ombrs.do
Ristic Aleksandar
Administrator

Član broj: 170168
Poruke: 140
*.teol.net.

Profil

Brojanje zareza i pronalazak navodnika

^{01.04.2011. u 13:23 - pre 159 meseci}

Prvo da vas sve pozdravim
Imam 2 problema.
1.
Imam neki txt fajl npr. C:\Proba.txt u kojem se nalazi sljedici zapis

56,1,123450,10,Ok;009,0453,0011;

Da li postoji sansa da istog zapisa iscitam samo 0453.Proba sam sa Left,Right,Mid ali sadrzaj teksta u txt fajlu je promjenljiv,odnosno nije iste duzine.
Da li bih se moglo npr 0453 definese nekom funkcijom koja ce traziti sadrazaj teksat izmedju 5 i 6 zareza ili na neki drugi nacin.

2.
Kako da isfiltriram neko polje sa tekstom da mi nadje tekst koji sadrzi navodnike.
Hvala puno

Odgovor na temu

SLOJ.1973

Član broj: 130198
Poruke: 871
*.adsl.eunet.rs.

+41 Profil

Re: Brojanje zareza i pronalazak navodnika

^{01.04.2011. u 18:59 - pre 159 meseci}

Možda ovo pomogne:

Jednog dana...

Prikačeni fajlovi

SLOJ-NADJITEXT.mdb - 132k

Odgovor na temu

izonic
ishab zonic
Tuzla

Član broj: 38128
Poruke: 591
*.PPPoE-6700.sa.bih.net.ba.

Sajt: www.icentar.ba

+2 Profil

Re: Brojanje zareza i pronalazak navodnika

^{01.04.2011. u 20:11 - pre 159 meseci}

Code:
Function NadjiDio(Str As String, Znak As String, Dio As Integer)
'******************************************************
'Ime:      NadjiDio   (Function)
'Sadržaj: Dio izmedju dva poznata karaktera
'Autor:     ZXZ
'Datum:      svibanj 16, 2008, 12:34:16
'Adresa: Tuzla BiH
'Email:     [email protected]
'Ulazni parametri:Str-String
                  'Znak-Karakter razdvajac
                  'Dio-Broj dijela izmedju razdvajaca
'Izlazni parametri:
'******************************************************
Dim DuzinaStr As Integer
Dim Polozaj As Integer
Dim I As Integer
Dim Brojac As Integer
Dim Karakter As String

DuzinaStr = Len(Str)
If Left(Str, 1) <> Znak Then
   Str = Znak & Str
End If
If Right(Str, 1) <> Znak Then
   Str = Str & Znak
End If
For I = 1 To DuzinaStr
Karakter = Mid(Str, I, 1)
    If Karakter = Znak Then
    Brojac = Brojac + 1
    End If
    If Brojac = Dio Then
     Polozaj = InStr(I + 1, Str, Znak)
     NadjiDio = Mid(Str, I + 1, Polozaj - I - 1)
     GoTo Kraj:
    End If
Next I
Kraj:
End Function

A moze i ovako prvi dio pitanja

Code:
Const Putanja_Filea = "C:\Proba.tx" ' putanja sa imenom filea
Function Broj_RacunaR()
Dim temp As String
Dim Poz As Integer

Close #1
Open Putanja_Filea For Input As 1
For Poz = 1 To 6
Input #1, temp
Next Poz
Broj_RacunaR = temp
Kraj:
Close #1
End Function

zxz

Odgovor na temu

ombrs.do
Ristic Aleksandar
Administrator

Član broj: 170168
Poruke: 140
188.124.196.*

Profil

Re: Brojanje zareza i pronalazak navodnika

^{02.04.2011. u 14:54 - pre 159 meseci}

Const Putanja_Filea = "C:\Proba.txt" ' putanja sa imenom filea
Function Broj_RacunaR()
Dim temp As String
Dim Poz As Integer

Close #1
Open Putanja_Filea For Input As 1
For Poz = 1 To 6
Input #1, temp
Next Poz
Broj_RacunaR = temp
Kraj:
Close #1
End Function

Ovaj dio koda za dati Proba.txt je OK samo ima mali problem zato sto Proba.txt izgleda npr.

S,1,041560,1,Ok;NEKTAR PIVO 0.5 LIMENKA 24/1;1.12;1.00;1;1;2;-0;29;
T,1,041560,2,Ok; 0 ;1.12;;;;
56,1,123450,10,Ok;0090,0453,0011;

probao sa da izolujem dio teksta koji pocinje sa "56,..." sa Mid i InStr ali ne mogu da dodjem do rjesenja odnosno do broja 0453.
Hvala unaprijed

Odgovor na temu

SLOJ.1973

Član broj: 130198
Poruke: 871
*.adsl.eunet.rs.

+41 Profil

Re: Brojanje zareza i pronalazak navodnika

^{02.04.2011. u 18:35 - pre 159 meseci}

Ne znam da li si otvorio primer koji sam ti dao,ali evo novog u kome na klik dugmeta se učitava sadržaj Textualni.txt (tako sam nazvao fajl koji se nalazi na C:\ ) i zatim se traži od korisnika da ukuca deo tekst koji želi da pronađe u tom tekstu.Ne vidim šta ti je više potrebno?!

Jednog dana...

Prikačeni fajlovi

SLOJ-NADJITEXT.zip - 41.07k

Odgovor na temu

izonic
ishab zonic
Tuzla

Član broj: 38128
Poruke: 591
*.PPPoE-6471.sa.bih.net.ba.

Sajt: www.icentar.ba

+2 Profil

Re: Brojanje zareza i pronalazak navodnika

^{02.04.2011. u 20:37 - pre 159 meseci}

Function Broj_RacunaR()
Dim temp As String
Dim Poz As Integer

Close #1
Open Putanja_Filea For Input As 1
For Poz = 1 To 3 '3-broj redova teksta
Line Input #1, temp
Next Poz
Broj_RacunaR = NadjiDio(temp, ",", 6)
Kraj:
Close #1
End Function

ako nije uvijek 3 reda teksta a napr jeste u tom redu 56 a u drugim nema 56 na pocetku onda bi bilo umjesto for petlje vajl petlja:

While Not EOF(1)
Line Input #1, temp
if val(temp)=56 then
Broj_RacunaR = NadjiDio(temp, ",", 6)
goto Kraj
endif
Wend

zxz

Odgovor na temu