SuchFunktion

[Darkhell]

Hallo zusammen,

ich möchte eine Funktion programmieren die nach einem String sucht und True oder False zurückgibt. Der sinn ist folgende: ich möchte ein Chatprogramm basteln, dass mit txt-Dateien arbeitet, weil ich dann in der Schule nicht viel machen muss. Da gibt es dann auch noch eine Datei mit den momentan aktiven Usern im Raum. Die möchte ich dann in einen String laden (Dim UserDatei As String), und dort dann nach dem Usernamen suchen den der Benutzer des Programms sich ausgesucht hat. Wenn der Nick gefunden worden ist, soll er einen anderen Namen eingeben.

Etwa so:

Raum1.usr (Text-Datei):

Hans Peter
Karl Heinz
Oma
Hennriette
Oppi
Dieter
Anna
Maria


Der Benutzer hat sich den Namen Henriette ausgesucht.

'Variablen Definieren:
Dim UserDatei as String
Dim NickName As String
Dim Pfad As String

NickName = "Hennriette"
Pfad = "C:\Raum1.usr"

'Datei in String laden
Open Pfad For Input As 1
UserDatei = Input(Lof(1), 1)
Close #1

'Nach Nickname suchen
If SuchDenString(Userdatei, Nickname) = True Then
nicknamen_eingeben:
MsgBox "Den Nicknamen gibt es leider schon. bitte gib einen anderen ein."
NeuerNickname = InputBox("Dein Neuer Nickname:")

If SuchDenString(Userdatei, NeuerNickname) = True Then
GoTo nicknamen_eingeben
Else
GoTo weitermachen
End If



Else
GoTo weitermachen
End If

weitermachen:

'Dateien laden:
'Restlicher Code(uninteressant)...........

 

[deepthroat]

Hi.

Äh, war da jetzt irgendwo eine Frage versteckt die ich nicht gesehen haben?

Gruß

 

[Darkhell]

War sie versteckt? oh sorry: Ich suche die Funktion dazu

 

[deepthroat]

Hi.

So eine Funktion gibt es nicht standardmäßig. Aber du kannst die InStr Funktion benutzen.

Gruß

 

[Darkhell]

Wer nun eine Suchfunktion braucht:

Private Function FindString(Text As String, Part As String, Start As Integer, SearchType As Integer) As Boolean

   ''''Searchtype is defined As:
   ''''''''0 - Binary Searching
   ''''''''1 - Case Sensitive
   ''''For other Types, please user the Typesfrom the InStr Function
   
    Result = InStr(Start, Text, Part, SearchType)
    
    If Result <= 0 Then
        FindString = False
    End If
    If Result > 0 Then
        FindString = True
    End If
    
    
End Function

Danke nochmal deepthroat



.