textbokse og txt-filer

hey jsc

Dim MinTekst as string
Dim SøgTekst as string
Dim Start as Integer

\'for en fil.
open \"c:\\minfil.txt\" for input as #1
Mintekst = input(LOF(1),1)
close#1

\' Hvis du nu vil finde ordet \"mix\" så gøres følgende.

SøgTekst =\"mix\"

Start = instr(1,lcase(MinTekst), lcase(SøgTekst))

if Start > 0 then
Msgbox SogTekst & \" Har står på plads nummer \" & start & \" i tekstfilen.\"
else
msgbox SøgTeskt & \" blev ikke fundet\"
End if

\' Hvis det er i en textbox


Dim SøgTekst as string
Dim Start as Integer


SøgTeskt = \"mix\"
Start = instr(1, lcase(Text1.text), lcase(Søgtekst))

If Start > 0 then
\'Her marker jeg teksten i filen
Text1.Selstart = start
Text1.Sellength = len(Søgtekst)
Else
msgbox Søgtekst & \"Blev ikke fundet\"
End if

tak mix...
jeg kigger på det og så vender jeg tilbage...

/jsc

hej igen...

der er noget i vejen med denne linie:
Start = InStr(1, LCase(Text1.Text), LCase(SøgTekst))

hvad er der galt?

/jsc

Hej jsc.

Oki...
Sorry jeg glemt noget.
linjerne skal se sådan herud


Dim MinTekst as string
Dim SøgTekst as string
Dim Start as Integer

\'for en fil.
open \"c:\\minfil.txt\" for input as #1
Mintekst = input(LOF(1),1)
close#1

\' Hvis du nu vil finde ordet \"mix\" så gøres følgende.

SøgTekst =\"mix\"

Start = InStr(1, LCase(Text1.Text), LCase(SøgTekst), vbTextCompare)

if Start > 0 then
Msgbox SøgTekst & \" Har står på plads nummer \" & start & \" i tekstfilen.\"
else
msgbox SøgTekst & \" blev ikke fundet\"
End if

\' Hvis det er i en textbox


Dim SøgTekst as string
Dim Start as Integer
\'Denne kræver at du har et tekstbox på din form
\'Der hedder Text1 og at teksten står i den.

SøgTeskt = \"mix\"
Start = InStr(1, LCase(Text1.Text), LCase(SøgTekst), vbTextCompare)

If Start > 0 then
\'Her marker jeg teksten i filen
Text1.Selstart = start
Text1.Sellength = len(Søgtekst)
Else
msgbox Søgtekst & \"Blev ikke fundet\"
End if


Du kan også sende mig en mail på
cix@cintix.dk
så skal jeg nok sende dig en zip fil med koderne i, så du kan se det.

/Mix

Det bare i orden, du kan sende dem på: jsc@x-plorer.dk

Det var mig der var dum oppe ved min sidste kommantar, jeg havde glemt/ikke set at der stod textboxensen navn (text1), jeg havde et andet navn...

nå men tak!

/jsc