instr fejl i .net

Hvad er problemet?
Med ovenstående kode burde du bare få et tal txtResultat. Får du det burde det fungere korrekt...

- Mikker

Altså:

Vi tænker os at tekt = "DETTEERENTEST"
Samt at soeg = "EN"

Så burde txtresultat være "8" ...

Det var også det jeg troede???
fejlen:

instr is a namespace, and so is not a valid expression

VB.Net er blevet mere objektorienteret og InStr er derfor erstattet med en metode på en instans af String-klassen som hedder IndexOf. Eks.:

tekt.IndexOf(soeg, 1)

OK, men hvordan kan jeg få bruge denne så.
Jeg indtaster følgende tekst i txttekst - dette er en test
og søger på t
resultetet skal derfor være - 4

Men din metode retuneter placeringen af det føreste t. det er ikke lige det jer er ude efter.

Flashit: Du er havnet i forkert kategori - bare til en anden gang, så prøv i http://www.eksperten.dk/kat/354

Mht. dit spørgsmål, så har du ikke forklaret hvad du vil - vil du ALTID finde den sidste "t", eller vil du blot springe den første "t" over, eller?

Prøv dette så skulle den væer der

tekt = txttekst.Text
soeg = txtkarakter.Text
result = instr(1, tekt, soeg)
txtResultat.Text = mid(tekt,result,len(soeg))

Hilsen Lars

Lars - tror ikke helt du har læse ovenstående. Det er VB.NET...

Ha Ha det over så jeg Martin.

Det kender jeg godt.... Lavede den samme fejl... Næsten...

jeg vil gerne have retuneret antallet at t'er i teksten.

PS jeg havde ikke set at der var en vb.net :-)

Først nu - efter over 10 indlæg - fortæller du, at du vil have ANTALLET og ikke PLACERINGEN af t'er...

Tror jeg springer fra her

Hvis det er VB og ikke VB.NET så kan følgende tælle (kan sikkert laves
smartere men ...):

Function CountSubStr(s As String, ss As String) As Integer
    Dim res As Integer
    Dim ix As Integer
    res = 0
    ix = 0
    Do
        ix = InStr(ix + 1, s, ss)
        If ix > 0 Then res = res + 1
    Loop Until ix <= 0
    CountSubStr = res
End Function

Function testcss()
    MsgBox Str(CountSubStr("Dette er en test", "t"))
End Function

I VB.NET vil det samme se ud som:

Imports System
Module Main
    Function CountSubStr(s As String, ss As String) As Integer
        Dim res As Integer
        Dim ix As Integer
        res = 0
        ix = 0
        Do
            ix = s.indexOf(ss, ix + 1)
            If ix > 0 Then res = res + 1
        Loop Until ix <= 0
        CountSubStr = res
    End Function
    Sub Main()
        Console.WriteLine(CountSubStr("Dette er en test", "t"))
    End Sub
End Module

Og lad os kalde det et svar.

Hvad sker der Martin? det er da også det jeg har prøvet at forklare i mit andet indlæg. Men nu jeg kigger efter så er der også placeret et t på position 4. MEN :-) det er vel ikke det værste der er sket.

Det er bare irreterende at bruge 10 indlæg på at forsøge at hjælpe med noget, der viser sig slet ikke at være det der efterspørges... Men det er bare min mening

Det er helt ok, jeg kan jo sagtens se at det er mig som har formuleret mig dårligt :-)