/ Forside / Teknologi / Udvikling / ASP / Nyhedsindlæg
Login
Glemt dit kodeord?
Brugernavn

Kodeord


Reklame
Top 10 brugere
ASP
#NavnPoint
smorch 9259
Harlekin 1866
molokyle 1040
Steffanst.. 758
gandalf 657
smilly 564
gibson 560
cumano 530
MouseKeep.. 480
10  Random 410
Count af forekomster i en tekst
Fra : Esben Laursen


Dato : 22-08-01 17:55

Jeg har behov for at vide hvor mange "return"-tast der er lavet i en
tekst(en streng), derfor er det min ide at tælle forekomsterne af "vbCrLf".
Er der en metode der kan gøre dette, eller hvordan kan man strikke en
sammen. Altså noget a'la tælle antallet af gange Replace funktionen
erstatter noget, hvis det er muligt.

Mvh
Esben





 
 
Anders Holbøll (22-08-2001)
Kommentar
Fra : Anders Holbøll


Dato : 22-08-01 18:36

Esben Laursen wrote:
>
> Jeg har behov for at vide hvor mange "return"-tast der er lavet i
> en tekst(en streng), derfor er det min ide at tælle forekomsterne
> af "vbCrLf".

Der er ikke nogen specifik funktion til det, men jeg kan komme på tre
forskellige måder, at gøre det på:

Methode 1: Jeg vil tro denne er langsomst
Antal = UBound(Split(Tekst, vbLf))

Methode 2: Jeg vil tro denne er hurtigst
Antal = Len(Tekst) - Len(Replace(Tekst, vbLf, ""))

Methode 3: Denne er nok også ganske langsom
Antal = 0
For i = 1 To Len(Tekst)
If Mid(Tekst, i, 1) = vbLf Then Antal = Antal + 1
Next

Hvis du gider, kan du jo prøve at teste dem (med forskellige længde
tekster og forskellige antal af forekomster) og poste resultatet af din
undersøgelse.

--
Anders

Esben Laursen (22-08-2001)
Kommentar
Fra : Esben Laursen


Dato : 22-08-01 19:43

Lige hvad jeg manglede, jeg er enig i at "Metode 2" må være den hurtigste,
og den virker !!!
Mange tak for det hurtige gode svar.
Esben
"Anders Holbøll" <dev-null-20010820@serveren.dk> skrev i en meddelelse
news:3B83ED96.EF3A774A@serveren.dk...
> Esben Laursen wrote:
> >
> > Jeg har behov for at vide hvor mange "return"-tast der er lavet i
> > en tekst(en streng), derfor er det min ide at tælle forekomsterne
> > af "vbCrLf".
>
> Der er ikke nogen specifik funktion til det, men jeg kan komme på tre
> forskellige måder, at gøre det på:
>
> Methode 1: Jeg vil tro denne er langsomst
> Antal = UBound(Split(Tekst, vbLf))
>
> Methode 2: Jeg vil tro denne er hurtigst
> Antal = Len(Tekst) - Len(Replace(Tekst, vbLf, ""))
>
> Methode 3: Denne er nok også ganske langsom
> Antal = 0
> For i = 1 To Len(Tekst)
> If Mid(Tekst, i, 1) = vbLf Then Antal = Antal + 1
> Next
>
> Hvis du gider, kan du jo prøve at teste dem (med forskellige længde
> tekster og forskellige antal af forekomster) og poste resultatet af din
> undersøgelse.
>
> --
> Anders



Søg
Reklame
Statistik
Spørgsmål : 177554
Tips : 31968
Nyheder : 719565
Indlæg : 6408857
Brugere : 218888

Månedens bedste
Årets bedste
Sidste års bedste