Notifikationer

Markér alle som læst Log ud

tofferman Nybegynder

13. april 2004 - 00:12 Der er 4 kommentarer og
2 løsninger

Tælle antal forekomster at en streng.

Hejsa.
Er der en funktion/metode i vbscript til at bestemme antallet af gange en bestemt tekst forekommer i en tekststreng.

F.eks. hvis vi har følgende tekst:

"Jeg prøver at finde løsninger på Eksperten.dk fordi Eksperten.dk plejer at have nogle rigtigt kloge brugere :-)."

Hvis man så søger efter eksperten.dk i denne tekststreng skal resultatet give 2.

Synes godt om

jpvj Nybegynder

13. april 2004 - 00:33 #1

Ja.

Se på split() funktionen. Den vil give dig et array (du deler efter " " = mellemrum).

Du skal så sammenligne hvert element i arrayet med dit "søgeord" (eksperten.dk). Brug evt. UCase/LCase for at gøre sammenligningen case *in*sensitiv.

Synes godt om

jpvj Nybegynder

13. april 2004 - 00:34 #2

Ex. (utestet kode - jeg er lidt rusten i ASP):

Dim str
str = "Jeg prøver at finde løsninger på Eksperten.dk fordi Eksperten.dk plejer at have nogle rigtigt kloge brugere :-)."

arr = Split(str," ")
found = 0

for i=LBound(arr) to UBound(arr) do
if LCase(arr(i)) = "eksperten.dk" then found = found + 1
next i

Synes godt om

pfp Nybegynder

13. april 2004 - 00:52 #3

Hvis du laver:
for i=LBound(arr) to UBound(arr) do
if LCase(arr(i)) = "eksperten.dk" then found = found + 1
next i

om til:
for i=LBound(arr) to UBound(arr)
if LCase(arr(i)) = "eksperten.dk" then found = found + 1
next

i jpjv's eksempel så er den der...

Synes godt om

tofferman Nybegynder

13. april 2004 - 01:19 #4

Et par gode bud, men jeg mangler at sige at det også skal kunne lade sig gøre selvom der ikke er mellemrum (f.eks. tastefejl).

Jeg prøver at finde løsninger på Eksperten.dk fordi Eksperten.dkplejer at have nogle rigtigt kloge brugere :-)."

Synes godt om

tofferman Nybegynder

13. april 2004 - 01:25 #5

Ok. Jeg kan jo lave en replace først:

replace(str, "eksperten.dk", " eksperten.dk ")

Og derefter arr=Split(str, " ").

Synes godt om

tofferman Nybegynder

13. april 2004 - 01:26 #6

Jeg tror det hjalp. Tak :-)

Synes godt om

Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Følg dette spørgsmål

Opret Preview

Programmeringssprog kurser

Kurser inden for grundlæggende programmering

Se alle Programmeringssprog kurser

Flere spørgsmål fra ASP kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
ASP classic kopiere database fil på server Af bsn i ASP	7	31/10/202610:20	01/11/202620:28
Persits.Upload Af bsn i ASP	9	17/09/202611:37	21/09/202615:15
Jeg bakser med noget Database og If Then med ASP - hvad gør jeg galt? Af Peer i ASP	10	25/06/202622:20	04/09/202602:30
Tjek alle checkbox i form Af bsn i ASP	4	18/05/202601:57	19/05/202613:33
Lost focus Af bsn i ASP	1	07/11/202415:34	01/01/202514:58

Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten

Seneste artiklerRSS