Trim mit Ascii 160

Forumthread: Trim mit Ascii 160

Trim mit Ascii 160

Felti

Hallo,
habe einen String, in dem ein Leerzeichen in dem oberen Byte der Ascii Zeichen codiert ist. Dabei wirkt die TRIM-Funktion nicht. Die schlägt nur bei ASCII 32 an. Muß ich das Zeichen ASC(160) suchen und ersetzen oder gibt es da eine elegantere Lösung?
Gruß
Alfred

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

AW: Trim mit Ascii 160

ing.grohn
AW: Trim mit Ascii 160

JogyB
AW: Trim mit Ascii 160

Felti

AW: Trim mit Ascii 160

20.08.2010 21:31:40

ing.grohn

Hallo Alfred,
probiermal
Cells(10, 6).Value = Application.Substitute(Cells(7, 6), " ", "i")
Mit freundlichen Grüßen
Albrecht

AW: Trim mit Ascii 160

20.08.2010 22:41:02

JogyB

Hallo Alfred,
wie wäre es damit:

Function TrimAsc(ByVal myString As String, ByVal ascCode As Byte) As String
Dim regEx As Object
Set regEx = CreateObject("VbScript.Regexp")
With regEx
.Pattern = "(^" & Chr(ascCode) & "+|" & Chr(ascCode) & "+$)"
.Global = True
TrimAsc = .Replace(myString, "")
End With
End Function

Damit kannst Du nach beliebigen Zeichen trimmen.
Gruß, Jogy

AW: Trim mit Ascii 160

21.08.2010 18:28:43

Felti

Danke, so klappt es jetzt.
Gruß
Alfred

Forumthread: Trim mit Ascii 160

3 Beiträge zum Forumthread Beiträge zu diesem Forumthread

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread