open file og noget...

Søge efter en stregn?

Vil du søge efter noget tekst i en tekstfil, vil du søge efter en fil, ..?

Public Function Find(sUndersøg as string) As Boolean

Dim sFiltype As String, sFil As String, sDrev As String, i As Integer
'On Error GoTo Fejlbehandling
i = 1


Find = False


  sFil = Dir(App.Path & "\", vbDirectory)
  sDrev = App.Path & "\"

Do While sFil <> ""
 
    If sFil <> "." And sFil <> ".." Then
       
    If Left(sFil, Len(sUndersøg)) = Left(sUndersøg, Len(sUndersøg)) Then
      Dine code
    End If
 
  sFil = Dir

Loop

End Function

Jeg vil søge efter noget i en text fil...

Undskyld jeg var lidt hurtig, dette er et uddrag af noget kode men skulle kunne bruges...

Public Function Find(sUndersøg as string) As Boolean
Dim sFil As String, sDrev As String, i As Integer
Find = False

  sFil = Dir(App.Path & "\", vbDirectory)
  sDrev = App.Path & "\"

Do While sFil <> ""
 
    If sFil <> "." And sFil <> ".." Then
       
    If Left(sFil, Len(sUndersøg)) = Left(sUndersøg, Len(sUndersøg)) Then
      "Din kode"
    End If
 
  sFil = Dir

Loop
End Function

Åben filen, og læs den ind i en variabel:

  Dim Filnummer as integer
  Dim MinString as String 
  Filnummer = FreeFile
  Open "C:\Min_fil.txt" For Input As #Filnummer
  MinString = Input(LOF(1), 1)
  Close #Filnummer

Søge efter noget i MinString:

  Brug InStr() (http://msdn.microsoft.com/library/default.asp?url=/library/en-us/vbenlr98/html/vafctinstr.asp)

Leder efter "Hej" i MinSrting
  If Instr(1, MinString, "Hej") <> 0 Then
    Msgbox "TekstDerSøgesEfter findes"
  Else
    Msgbox "Tekst Der Søges Efter findes IKKE"
  End If

Sorry, jeg har så meget sn.. i hornet at jeg hverken kan se eller lade være...

jrl0469: He he, jeg undrer mig også over hvad det lige er din kode har med dette spørgsmål at gøre. God bedring med forkølelsen ;o)

Tak ska' du ha'

dd_ns: Husk at lukke www.eksperten.dk/spm/222687 m.fl. :o)

det fungere ikke... Skal lige siges at det er i .NET vb

Bravo!

Ja, det skulle måske lige siges!

såså...

Og lige noget mere... Hvordan laver man en harddrive content dropdown?

Det aner jeg ikke - prøv i .NET kategorien

Jeg prøver i .NET

martin_moth for point

Takker - løsningen virker altså i VB6 ;o)

men ikke i .net

Nej, det er klart...