Leerzeichen rechts abschneiden

Beaker s.a. · April 20, 2023, 14:37:37

Muss mich nochmal reinhängen. Das geht doch auch viel kürzer, -
abgesehen von den eingebauten Funktionen Left und Right

Function LeerzRechtsWeg(strText As String) As String
        Do While Right$(strText, 1) = " "
            strText = Left$(strText, Len(strText) - 1)
        Loop
    LeerzRechtsWeg = strText
End Function

MzKlMu · April 20, 2023, 14:46:47

Hallo,

Code [Auswählen]

For I = Len(strText) To 1 Step -1 'von hinten anfangenBrauchst Du für diese Zeile wirklich eine Erklärung ?
Ich halte das für selbsterklärend, zumal da noch der Kommentar "'von hinten anfangen" anfangen dabei steht.
Versuche es einfach mal mit nachdenken.

Code [Auswählen]

If Right$(strText, 1) = ")" ThenWie kommst Du hier auf eine schließende Klammer ? Du willst doch Leerzeichen tauschen.

@ekkehard
Es geht ihm ja nicht um kürzer oder so, er will ja den Originalcode verstehen.

Torsten. · April 20, 2023, 15:40:34

@klaus
@Beaker
@MzKlMu

Code [Auswählen]

If Right$(strText, 1) = ")" ThenDa habe ich durch probieren und testen es vergessen für die Antwort auf Leerzeichen zurückzustellen.

@MzKlMu

ZitatIch halte das für selbsterklärend, zumal da noch der Kommentar "'von hinten anfangen" anfangen dabei steht.
Versuche es einfach mal mit nachdenken.

Wenn Du wüßtes wie mir der Kopf raucht für die für Euch einfachsten Sachen.

Code [Auswählen]

For I = Len(strText) To 1 Step -1 'von hinten anfangenWenn ich die Zeile interpretieren soll muß ich sie verstehen:
Das versuche ich indem ich in Google für

Code [Auswählen]

For I = Len(strText)oder

Code [Auswählen]

To 1 Step -1die Zeilen eingebe um zu verstehen was da gemeint ist. Nur da finde ich nichts was ich verstehen und zuordnen kann. Da helfen auch keine Hinweise wie z.B.

ZitatAls Anfangslekture für VBA gibt es da z.B.

, also kann ich nur Euch fragen und um Erklärungen bitten...

Gruß Torsten

Beaker s.a. · April 20, 2023, 16:42:23

Na gut,

Code [Auswählen]

For I = Len(strText) 'For startet eine Schleife, in der I bei jedem Durchlauf die Länge des Strings
strText festhält.
Die Schleife läuft theoretisch solange bis der String nur noch ein Zeichen enthält,
weil der String ja durch das Abschneiden immer kürzer wird. Dazu kommt es aber nur,
wenn der übergebene String nur aus Leerzeichen besteht. Ansonsten wird die Schleife
verlassen sobald ein Zeichen <> Leerzeichen auftaucht.

ZitatTo 1 Step -1

Also wenn der String 10 Zeichen lang ist und am Ende zwei Leerzeichen stehen läuft
die Schleife bis I = 8.

ZitatDa helfen auch keine Hinweise wie z.B.

Vielleicht hilft ja der Hinweis auf die Taste F1.

Torsten. · April 20, 2023, 17:00:53

Hallo Beaker,
vielen Dank für die sehr verständliche Erklärung, die ich nachvollziehen kann.
Ebenfalls ist der Hinweis mit der F1-Taste sehr hilfreich - die Hilfe hatte ich nie benutzt da sie mir nicht bekannt war.

Ich werde mir Deinen letzten Code speichern und nutzen.

Jetzt werde ich mich dem Problem widmen warum dieses rechte Leerzeichen überhaupt vorhanden ist.
Es entsteht durch den Import einer vom Hersteller zur Verfügung gestellten Excell-Tabelle.

Dazu melde ich mich die nächsten Tage.

Vielen Dank an alle für die Hilfe.

Gruß Torsten

Beaker s.a. · April 20, 2023, 17:14:29

ZitatIch werde mir Deinen letzten Code speichern und nutzen.

Wozu?
Warum verwendest du nicht die implementierten Funktionen Left und Right?
Wurde dir doch mehrfach ans Herz gelegt.

Torsten. · April 21, 2023, 13:11:12

Hallo zusammen,
ich möchte das Thema nochmal öffnen, da in dem Zusammenhang ein weiteres Problem besteht:
Anbei eine Excell-Datei in der zu ersehen ist das am Ende kein Leerzeichen sondern ein Leerfeld ist - evtl. ein Zeilenumbruch?
In der angehängten DB in der Tabelle _Hinweis sind weitere Informationen hinterlegt.

Ich bitte Euch um weitere Hilfe.

Gruß Torsten

Beaker s.a. · April 21, 2023, 16:39:56

Hallo Torsten,

Das sind keine Leerzeichen im Feld "Funktionsprinzip". Das ist ein TAB, wird
jedenfalls in meiner Textverarbeitung als solches angezeigt.
Löschen geht mit

Code [Auswählen]

Function LeerzeichenWeg(strText As String) As String
    LeerzeichenWeg = Mid(strText, 1, Len(strText) - 2)
End Function

Besser wäre es allerdings, wenn man den Ersteller der Excel-Datei dazu überreden
könnte eine "saubere" zur Verfügung zu stellen.

gruss ekkehard

Torsten. · April 21, 2023, 17:40:23

Hallo Ekkehard,
der Code bewirkt das in jedem Datensatz das letzte rechte Zeichen entfernt wird, dass ist aber nicht gewünscht.
Hast Du eine weitere Möglichkeit?

Gruß Torsten

Beaker s.a. · April 21, 2023, 18:04:11

Code [Auswählen]

Function LeerzeichenWeg(strText As String) As String
    If Right(strText, 2) = "  " Then
        LeerzeichenWeg = Left(strText, Len(strText) - 2)
    Else
        LeerzeichenWeg = strText
    End If
End Function

Frag mich nicht, warum ich beim letzten Mid verwendet habe; und sorry wegen
des vergessenen Else-Zweigs.

Torsten. · April 22, 2023, 09:02:14

Moin Ekkehard,
funktioniert leider nicht.
Hattest Du den Code in der angehängten testzip (#21) geprüft und funktionierte es bei Dir?

Du hast 2 Leerzeichen drin...

Code [Auswählen]

If Right(strText, 2) = " " Then
Ich habe es mit einem Tab-Zeichen probiert

Code [Auswählen]

If Right(strText, 2) = " " Thendas brachte auch kein Erfolg.

Gruß Torsten

MzKlMu · April 22, 2023, 10:34:29

Hallo,
wo ist denn da ein Tab Zeichen?

Du musst den ASCII Code der letzten Zeichen ermitteln und dann gezielt löschen.

Torsten. · April 22, 2023, 12:29:07

Hallo Klaus,
hat Ekkehard festgestellt #22

ZitatDas sind keine Leerzeichen im Feld "Funktionsprinzip". Das ist ein TAB, wird
jedenfalls in meiner Textverarbeitung als solches angezeigt.

Wie kann man einen Ascii Code ermitteln wenn man kein Zeichen hat? In der Ascii-Tabelle hat jeder Code ein Zeichen - außer 032 (was ich als Leerzeichen werten würde).
Hast Du einen Vorschlag?

Gruß Torsten

MzKlMu · April 22, 2023, 12:41:30

Hallo,
was hat Ekkehard festgestellt ?

ZitatIch habe es mit einem Tab-Zeichen probiert

Code [Auswählen]

If Right(strText, 2) = " " ThenWas hat diese Zeile mit einem Tab Zeichen zu tun ?

Kommentiere mal in der Funktion alle Zeilen aus.
Lege dann folgendes neu an:
MsgBox Asc(Right(strText, 1)) 'nur diese eine Zeile.
Was wird gemeldet?

PS:
Du solltest Dir unbedingt die Grundlagen zu VBA aneignen.

https://www.vba-tutorial.de/

Beaker s.a. · April 22, 2023, 12:43:43

Hallo,

Das TAB-Zeichen ist eine "Erfindung" von mir. Ich hatte die Excel-Datei in eine
.csv exportiert, und diese in Libre-Office-Writer kopiert. Dort wurde das letzte
Zeichen eben als TAB angezeigt.
Die .csv habe ich dann in der accdb verknüpft und per INSERT in die vorhandene
Tabelle eingefügt. Wobei i.Ü. das Leerzeichen im Feld "Ursprungsland" automatisch
verschwindet. Die Prozedur habe ich dann getestet, indem ich einen Feldinhalt
kopiert und im Direktfenster die Prozedur damit aufgerufen habe; - das funzt.
Die Abfrage habe ich gar nicht getestet (schäm). Da funzt es dann leider nicht,
wie gerade festgestellt habe; - sehr komisch. Habe aber herausgefunden wie es
geht (nach Klaus' Hinweis in #26), der Rest hat sich dann überschnitten.

Code [Auswählen]

Function LeerzeichenWeg(strText As String) As String
    If Asc(Right(strText, 1)) = 9 Then
        LeerzeichenWeg = Left(strText, Len(strText) - 1)
    Else
        LeerzeichenWeg = strText
    End If
End Function

Die Abfrage muss dann ein UPDATE machen

Code [Auswählen]

UPDATE tblArtikelliste AS A 
SET A.Funktionsprinzip = Leerzeichenweg(Funktionsprinzip)

gruss ekkehard

Neuigkeiten:

Leerzeichen rechts abschneiden