Brojanje zareza i pronalazak navodnika

Brojanje zareza i pronalazak navodnika 01.04.2011. u 14:23 · pre 189 meseci #1

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

Re: Brojanje zareza i pronalazak navodnika 01.04.2011. u 19:59 · pre 189 meseci #2

Možda ovo pomogne:

Potpis

Jednog dana...

SLOJ-NADJITEXT.mdb132k

Re: Brojanje zareza i pronalazak navodnika 01.04.2011. u 21:11 · pre 189 meseci #3

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

Potpis

zxz

Re: Brojanje zareza i pronalazak navodnika 02.04.2011. u 15:54 · pre 189 meseci #4

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

Re: Brojanje zareza i pronalazak navodnika 02.04.2011. u 19:35 · pre 189 meseci #5

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?!

Potpis

Jednog dana...

SLOJ-NADJITEXT.zip41.07k

Re: Brojanje zareza i pronalazak navodnika 02.04.2011. u 21:37 · pre 189 meseci #6

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

Potpis

zxz

Re: Brojanje zareza i pronalazak navodnika 03.04.2011. u 10:08 · pre 189 meseci #7

Uspio sam prilagoditi
Hvala puno na trudu i strpljenju

Forum kao aplikacija na telefonu

Srodne teme