VB6 - TextBox Eingabe Überprüfen

Computer: Software & Programmierung Visual Basic
#1

ich schon wieder ^^ Ok es klingt Banal ^^
Also Folgendes:
Ich habe ne Textbox in der eine suche ausgeführt werden soll. Wenn die suche ein Leerzeichen Enthält, Soll die eingabe gesplittet werden und in die SQLVar die möglichkeit um „Edelstahl Rund“ in Spalte 1 und Spalte 2 mit And verknüpfung zu suchen.

Das ist alles überhaupt kein Problem ^^

Aber, wie Frage ich ab ob ein Leerzeichen in der eingabe ist?

 sTextSpace = Find(suchetxt.Text, " ")

 If Not sTextSpace = "" Then
 Zeile = Split(suchetxt.Text, " ")

 For N = 0 To UBound(Zeile)
 Suchbegriff1 = Zeile(0)
 Suchbegriff2 = Zeile(1)
 Next
 'cmdSuche.CommandText = "hier kommt der SQL String wenn 2 werte getrennt stehen..."


 Else
 MsgBox suchetxt.Text
 'cmdSuche.CommandText = "hier kommt der SQL Standard SQL String"
 End If

Bei Perl, PHP, JavaScrip oder ähnlichen ist das pille palle ^^ aber hier find ich keine funktion um n einfaches leerzeichen im text zu suchen ^^

Währe n1 wenn einer ne idee oder lösung hätte… ich wusste doch das ich wiederkomme ^^
Danke schonmal :wink:

#2

Hallo,

sTextSpace = Find(suchetxt.Text, " ")

If Not sTextSpace = „“ Then
Zeile = Split(suchetxt.Text, " ")

For N = 0 To UBound(Zeile)
Suchbegriff1 = Zeile(0)
Suchbegriff2 = Zeile(1)
Next
'cmdSuche.CommandText = „hier kommt der SQL String wenn 2
werte getrennt stehen…“

Else
MsgBox suchetxt.Text
'cmdSuche.CommandText = „hier kommt der SQL Standard SQL
String“
End If

Bei Perl, PHP, JavaScrip oder ähnlichen ist das pille palle ^^
aber hier find ich keine funktion um n einfaches leerzeichen
im text zu suchen ^^

schöner Code und fast fertig. :smile:

Du mußt nur vorher:

Dim Zeile()

schreiben.

Die Zeilen:

 sTextSpace = Find(suchetxt.Text, " ")

 If Not sTextSpace = "" Then

ersetze mal durch:

 sTextSpace = Instr(suchetxt.Text, " ")

 If Not sTextSpace = 0 Then

und Dein Code läuft.

Gruß, Rainer

#3

Ich habe ne Textbox in der eine suche ausgeführt werden soll.
Wenn die suche ein Leerzeichen Enthält, Soll die eingabe
gesplittet werden und in die SQLVar die möglichkeit um
„Edelstahl Rund“ in Spalte 1 und Spalte 2 mit And verknüpfung
zu suchen.
Aber, wie Frage ich ab ob ein Leerzeichen in der eingabe ist?

Hi df,
ich durschaue nicht die Notwendigkeit nach einem Leerzeichen zu fahnden und dann erst zu splitten.

Sub tt()
Dim N, Zeile
Zeile = Split("abc")
If UBound(Zeile) = 0 Then
 'mach dies
Else
 'mach das
End If
End Sub

Gruß
Reinhard

#4

Danke :smile: Funktioniert wunderbar!

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]