alle Sonderzeichen in String ignorieren

Guten Abend liebes Forum,
ich erstelle mir derzeit aus einer csv Datei, die ich in Excel importiert habe neue Verzeichnisse. Das heißt ich möchte mein Musikarchiv sortiren auf Grundlage der ID3 Tag Infos. Nur leider ist nicht immer der ID3 Tag sinnvoll und/oder beim Import 4 " - Zeichen vorhanden gewesen (so das Excel durcheinander kommt und falsch trennt), so dass es vorkommen kann, dass in dem neuen Pfad ein " oder andere Sonderzeichen vorkommen können. Wenn ich auf dieser Grundlage versuchen würde neue Verzeichnisse zu erstellen, würde dies zu einer Fehlermeldung führen. Nun meine Frage: Kann man in einem String, der ausgelesen wird, alle Sonderzeichen ignorieren?
Bsp:

D:\Musik\Interpret\D\Dominik Eulberg\ Brenzlich" Dachte"\
Wunsch:

D:\Musik\Interpret\D\Dominik Eulberg\Brenzlich Dachte\
Gruß, Frank

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Sub ttt() Dim sTmp As String, sText As String, i As Integer sTmp = "D:\Musik\Interpret\D\Dominik Eulberg\ Brenzlich"" Dachte""\" sText = Left(sTmp, 3) For i = 4 To Len(sTmp) Select Case UCase(Mid(sTmp, i, 1)) Case "A" To "Z", "\" sText = sText & Mid(sTmp, i, 1) End Select Next MsgBox sText End Sub

...Udos Vorschlag aufsetzt und Zeichen für Zeichen vglt, Frank;
bspw so...


Dim a As String, ...
sText = Left(sTmp, 3)
For i = 4 To Len(sTmp)
a = Mid(sTmp, i, 1)
If a Like "[ 0-9A-Za-zÄäÖöÜüß]" Then sText = sText & a
Next i
...

Wenn du die anderen Zeichen nicht weglassen, sondern durch ein bestimmtes ersetzen willst, musst du If... noch mit ...Else... fortsetzen, zB Else sText = sText & " "... Wahrscheinlich wird in diesem Falle auch sText = sText & IIf(a Like "[ 0-9A-Za-zÄäÖöÜüß]", a, " ") fktn.
Außerdem könnte man das evtl beschleunigen, indem man so gleich mehrere Zeichen überprüft. _ Dabei müssen allerdings verbleibende Resttextlängen < hier 3 Zeichen berücksichtigt wdn...


For i = 4 To Len(sTmp) Step 3
a = Mid(sTmp, i, 3)
If a Like WorksheetFunction.Rept("[ 0-9A-Za-zÄäÖöÜüß]", Len(a)) Then sText = sText & a
Next i

Auch das kannst du ggf wie bereits geschildert mit ...Else... ergänzen...
Innerhalb der []-Klammern kannst du auch noch andere zulässige Zeichen notieren. Du kannst aber auch alles umkehren und hier nur die Zeichen notieren, die nicht übernommen wdn sollen. Dann lautet die Vglsmaske Like "[!"":,\...usw]" (vgl VBE-Hilfe →„Operator Like”).
Gruß Luc :-?

Beliebteste Forumthreads (12 Monate)

alle Sonderzeichen in String ignorieren

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

320 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

alle Sonderzeichen in String ignorieren

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

320 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread