Tælle antal bestemte ord i en sætningsrække

uden regex skal du nok bare løbe den igennem, og recursivt klippe af stregen ved IndexOf("var") og ligge 1 til en integer hver gang.

/JJ

Private Sub CountWords()


        Dim strText As String = "It's a wonderful    world"
        Dim iCount As Integer


        Do While (strText.IndexOf(Space(2)) >= 0)
            strText = strText.Replace(Space(2), Space(1))
        Loop


        iCount = Split(strText, Space(1)).Length
        MsgBox(iCount.ToString())


    End Sub

øhh - giver det ikke antallet af ord og ikke det bestemte ord?

jo, men tænkte der var lidt kreativitet:)

erstat spaces med din variable ?

/JJ

jeg kan godt lave et C# eksempel.. men et vb.net vil tage for lang tid, så skal jeg til at sætte mig ind i syntax..

Kan du ikke bare selv tage en variable med ned i funktionen, og i stedet for Space(2) skrive den der..


/JJ

i så fald får du også ord som 'varulv' og 'svar' med i matchen, det er vel ikke tanken...
hvad med noget i retning af:

  string str = "Det var en dejlig dag, det var en dejlig dag,....";
  string[] tokens = str.Split(' ');
  int numberOfMatches = Array.FindAll<string>(tokens, Test).Length;

hvor 'Test' er defineret som:

  public bool Test(string itemToTest)
  {
    return itemToTest.Equals("var", StringComparison.OrdinalIgnoreCase);
  }

ikke med " var "..

/JJ

Nej. men så fanger du den kun en gang i sætningen "Var du hjemme i går? Ja det var jeg." ;-)

Der er vel ingen so har sagt at det skulle være uden regexp?

        Dim str As String = ""
        str = "Det var en dejlig dag, det var en dejlig dag,...."

        Dim antal As Integer = Regex.Matches(str, "\bvar\b", RegexOptions.IgnoreCase).Count

Næh det er der selvfølgelig ikke :-). Regex eksemplet er bestemt også en fin og kompakt løsning.

PP > ja, doh :)

nielle jo, for jeg skulle bestemt ikke til at skrive det i vb.net :), men kan godt se det kun er lidt syntax man skal have lært fra at kunne oversætte C# til vb.net..

/JJ

nielle vil du lave et svar for et brugbart svar på spørgsmålet? (70)

jokkejensen og powerpunk vil I også lave, da I gav mig inspiration til noget andet. (30 p)

Mange tak for hjælpen.

:-) karsten_larsen

Velbekomme! :-)

Narj tak, jeg var vist til mere forvirring end gavn :)

Svar :^)

hmm - troede ellers man kunne give flere point.

-> powerpunk opretter lige et sp. til dig.

:-) karsten_larsen

Takker for point.

Man kan sagtens give flere point, men det skal ske inden at man acceptere svar og dermed lukker spørgsmålet. Oppe i venstre side er der et punkt som hedder Funktioner og det er under det at du finder menupunktet.