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