Fremdsprache filtern...

Cheffboss · 29. August 2016, 17:08

Moin!

Ich möchte dass wenn man auf den Button klickt, eine Datei erstellt wird.
Zuerst soll zuerst prüfen, ob die Dateilänge stimmt.
Danach soll es prüfen dass es nicht mit einer Zahl anfängt.
Zum Schluss soll es alle Buchstaben im Deutschen-Alphabet mit Umlaute und Sonstiges prüfen.
Wenn alles geklappt hat, soll es eine Meldung geben!
Das Problem ist, das der Code nicht funktioniert.
Wenn ich nun 你好مرحباनमस्ते eingebe, sollte eine Fehlermeldung kommen.
Da dieses keine Deutschenzeichen sind!
Wie kann ich das Problem beheben?
BIG THX

edit: Die Lösung steht unten!

RodFromGermany · 30. August 2016, 07:37

Cheffboss schrieb:

Da dieses keine Deutschenzeichen sind!

Lies mal eine "deutsche Datei" im ANSI-Format mit einem falschen Encoding ein und Du wirst staunen, was da für Zeichen angezeigt werden.
Wenn diese Datei eine Unicode-Datei ist, müsstest Du jedes Unicode-Zeichen überprüfen, ob es zum deutschen Zeichensatz gehört. Ich weiß jetzt allerdings nicht, ob es dafür eine geschlossene Lösung gibt.

EaranMaleasi · 30. August 2016, 15:46

Gibt es überhaupt einen weg ASCII von ANSI von latin1(ISO-8859-1) von Windows 1252 von UTF-8 einduetig zu unterscheiden?

Cheffboss · 30. August 2016, 16:28

Habe es nun mit diesem Code probiert, leider ohne Erfolg!
Kann mir jemand bitte mitteilen, wie man das Problem lösen kann?

edit: Die Lösung steht unten!

Cheffboss · 30. August 2016, 17:01

Ich habe einen neuen Code geschrieben, leider auch ohne Erfolg!
Was mache ich nur Falsch?

edit: Die Lösung steht unten!

petaod · 30. August 2016, 17:35

Cheffboss schrieb:

Was mache ich nur Falsch?

Du prüfst auf erlaubte Zeichen und nicht auf verbotene.
Sobald ein erlaubtes Zeichen im Text ist, ist der ganze Text für dich OK.

Cheffboss · 30. August 2016, 17:39

Ich glaube ich habe nun die Lösung!

Könnt Ihr bitte diesen Code prüfen!
Vielen Dank!

edit: Die Lösung steht unten!

EaranMaleasi · 30. August 2016, 17:52

Ich bin gerade mehr als erstaunt, dass dieses Case "A" To "Z" funktioniert. Jedoch musst du noch Ä Ö und Ü einfügen.

Edit:
Achja, Steuerzeichen werden noch ein Problem werden. davon gibbets ne ganze Menge.

petaod · 30. August 2016, 18:07

Auch das dürfte noch kürzer gehen:

VB.NET-Quellcode

Select Case Values
Case "A" To "Z", "0" To "9", "'", "-", "_", ".", ",", " ", "Ä", "Ö", "Ü", "ß"
Case Else
MsgBox("Fehler")
Exit Sub
End Select

Cheffboss · 30. August 2016, 18:08

EaranMaleasi schrieb:

Jedoch musst du noch Ä Ö und Ü einfügen.

Super! :thumbsup:

Vielen Dank, ich habe fast die Umläute vergessen!

RodFromGermany · 30. August 2016, 18:41

@Cheffboss Konvertierst Du den Text in Großbuchstaben?
Ansonsten musst Du auch die Kleinbuchstaben noch testen.
Sind diese Zeichen für Dich verboten: @#+*%$§"()[]{}? usw.?

Cheffboss · 31. August 2016, 10:19

Vielen Dank an euch alle.

Die Lösung steht hier unten:

VB.NET-Quellcode

Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
' Werte prüfen...
For Each Values In Me.TextBox1.Text.ToUpper
Select Case Values
Case "A" To "Z"
Case "0" To "9"
Case "Ä"
Case "Ü"
Case "Ö"
Case "ß"
Case "-"
Case "-"
Case "_"
Case "."
Case ","
Case " "
Case Else
MsgBox("Fehler")
Exit Sub
End Select
Next
MsgBox("Alles OK!")
End Sub

petaod · 31. August 2016, 10:39

Welchen Sinn macht es, das Minuszeichen zweimal abzuprüfen?

Cheffboss · 31. August 2016, 11:34

@petaod
Gute Frage! Das eine ist das Minuszeichen das andere ist ein Bindestrich.
Ist das in der Codierung das gleiche?

petaod · 31. August 2016, 11:49

If "-" = "-" Then Debug.Print "gleich"

RodFromGermany · 31. August 2016, 11:49

Cheffboss schrieb:

Ist das in der Codierung das gleiche?

Große Tastatur vs. Nummernblock?
Mach Dir ne Form mit ner TextBox und im KeyDown-Event gibst Du in einem Label den KeyCode und den KeyValue dazu aus.

VB.NET-Quellcode

Private Sub TextBox1_KeyDown(sender As Object, e As KeyEventArgs) Handles TextBox1.KeyDown
Label1.Text = e.KeyCode.ToString
Label2.Text = e.KeyValue.ToString
End Sub

OemMinus => 189
Subtract => 109

@petaod

VB.NET-Quellcode

MessageBox.Show((TextBox1.Text = TextBox2.Text).ToString)

bringt ein True.

Fremdsprache filtern...

Fremdsprache filtern...

Cheffboss schrieb:

Cheffboss schrieb:

VB.NET-Quellcode

EaranMaleasi schrieb:

VB.NET-Quellcode

Cheffboss schrieb:

VB.NET-Quellcode

VB.NET-Quellcode

Ähnliche Themen

4 Benutzer haben hier geschrieben