|
| Autor |
Nachricht |
sollniss
Überflieger
Anmeldedatum: 01.05.2008
Beiträge: 699
|
Wie oft kommt ein String in einem String vor
Verfasst am: 26.06.2008, 19:46 |
|
|
| Hab irgendwie grad ne Denkblockade. :/ |
|
| |
|
 |
Marduk
Überflieger
Anmeldedatum: 16.04.2008
Beiträge: 374
|
Verfasst am: 26.06.2008, 19:55 |
|
|
Müsste so ca. gehen
Visual Basic: [code]
Dim s1, s2 as string
dim i, y, s as integer
dim ende as boolean = false
y = s1.indexof(s2)
while ende = false
s1.remove(y, s2.lenght)
y = s1.indexof(s2)
If y < 0 then ende = true
end while
[/code]
so in der art dürfte es gehen, is jetzt ausm Kopf, teste halt mal |
|
| |
|
|
r4z3r
Poster
Anmeldedatum: 16.04.2008
Beiträge: 173
|
Verfasst am: 26.06.2008, 20:02 |
|
|
So ists leichter:
Visual Basic: [code]
Public Function StringCount(ByVal Str As String, ByVal StringToCount As String) As Integer
Dim x() As String = Split(Str, StringToCount)
Return UBound(x)
End Function[/code]
Aufrufbeispiel:
Visual Basic: [code]Dim X as Integer = StringCount(TextBox.Text, "Test")[/code] |
|
| |
|
|
Marduk
Überflieger
Anmeldedatum: 16.04.2008
Beiträge: 374
|
Verfasst am: 26.06.2008, 21:43 |
|
|
Na gut 
Dann wäre es so noch kürzer
Visual Basic: [code]string.split(pattern).Length[/code]
So gehts noch kürzer und man hat nicht diesen komischen VB6-Style:D |
|
| |
|
|
sollniss
Überflieger
Anmeldedatum: 01.05.2008
Beiträge: 699
|
Verfasst am: 26.06.2008, 23:16 |
|
|
@Marduk
Bei deiner Funktion bekomm ich nen höheres Ergebnis, welches Fehler verursacht. |
|
| |
|
|
Marduk
Überflieger
Anmeldedatum: 16.04.2008
Beiträge: 374
|
Verfasst am: 26.06.2008, 23:59 |
|
|
Visual Basic: [code]string.split(pattern).Length - 1[/code]
Dann muss noch ne -1 bzw musst du ausprobieren kann auch - 2 dazukommen. Teste halt mal. |
|
| |
|
|
sollniss
Überflieger
Anmeldedatum: 01.05.2008
Beiträge: 699
|
Verfasst am: 27.06.2008, 00:47 |
|
|
Habs mit -1, -2 und -3 versucht, dann hatt ich kein Bock mehr. |
|
| |
|
|
Registrieren
Login
