Office: Ersetzen von Unterstrich

accessneuling · 27. Juni 2004

Hallo vielleicht kann mir jemand helfen?

Ich möchte in einem Feld Unterstriche die doppelt vorkommen ersetzen lassen.
Leider bin ich in Access nicht so fit.
Hier mein Code
Code:

Public Function Unterstrich(S)
Dim I As Long, Res As String, Ch As String * 1
Unterstrich = Null
If Not IsNull(S) Then
Res = ""
For I = 1 To Len(S)
Ch = Mid(S, I, 1)
Select Case Asc(Ch)
Case Asc("__"): Res = Res & "_"
Case Else: Res = Res & Ch
End Select
Next I
Unterstrich = Res
End If
End Function
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Leider fuktioniert das nicht so. *sos
Ich würde auch gerne einfache Unterstriche am Text an Fang und Ende entfernen lassen.
Kann mir jemand helfen?

Im Voraus Danke

Jürgen

AD: Code-Tags gesetzt. S. dazu auch Darstellung von Code-Abschnitten.

:)

racoon0506 · 28. Juni 2004

je nach dem, welche Access-Version du verwendest:
Schau dir mal dir Funktion Replace() an. Vielleicht hilft dir das weiter.

accessneuling · 28. Juni 2004

Hallo Jan

Danke für die schnelle Antwort.
Hat mir fürs erste geholfen.

Hier der Code:
Code:

Function checkU(s) As String

Dim intPos As Integer
Dim strTmp As String

strTmp = Replace(s, "__", "_")

checkU = strTmp

End Function
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Wie kann ich jedoch nur das erste und letzte Zeichen eines Strings überprüfen und gegebenen Falls ersetzen lassen

Danke

Jürgen

AD: Code-Tags gesetzt. S. dazu auch Darstellung von Code-Abschnitten.

Anne Berg · 28. Juni 2004

Sieh dir mal die Funktionen Left und Right an!

accessneuling · 28. Juni 2004

Hallo Anne,

habe ich gerade gefunden, Danke.
Ich bin gerade dabei die Funktion zu testen bekomme jedoch immer Fehlermeldungen wegen Gültigkeitsregelverletzung, hier mein Code:
Code:

Function checkUl(s) As String

Dim intPos As Integer
Dim strTmp As String

If Left(s, 1) = "_" Then
strTmp = Replace(s, "_", "")

checkUl = strTmp
End If

End Function
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Gruss Jürgen

AD: Code-Tags gesetzt. S. dazu auch Darstellung von Code-Abschnitten.

Anne Berg · 28. Juni 2004

Was sind das denn für Gültigkeitsregeln? Im Zweifelsfall hast du die doch wohl selbst aufgestellt?!
Und wie setzt du die Funktion ein? Was macht das für einen Sinn, die erste Stelle abzufragen und alle Zeichen durch nichts zu ersetzen??

Nouba · 28. Juni 2004

Du könntest folgende Funktion verwenden.
Code:

Function TrimChar(ByRef strText As String, ByVal vstrChar As String) As String
Dim iStart As Long
Dim iEnde As Long

' Anfang behandeln
For iStart = 1 To Len(strText)
If Asc(Mid$(strText, iStart, 1)) Asc(vstrChar) Then Exit For
Next iStart

' Ende behandeln
For iEnde = Len(strText) To iStart + 1 Step -1
If Asc(Mid$(strText, iEnde, 1)) Asc(vstrChar) Then Exit For
Next iEnde

TrimChar = Mid$(strText, iStart, iEnde - iStart + 1)
End Function
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Hier ist ein Beispielaufruf aus dem Direktfenster. Code:

? TrimChar("___Die Unterstriche am Anfang und __ Ende sollen weg._______", "_")
Die Unterstriche am Anfang und __ Ende sollen weg.
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

accessneuling · 29. Juni 2004

Hallo Anne,

ich bekomme einen Datenbestand mit mehreren hundert Datensätzen aus einer anderen Anwendung.
Die Inhalte haben teilweise am Anfang oder/und am Ende einen Unterstrich als Feldinhalt, diese Unterstriche möchte ich entfernen.
Dies möchte ich gerne nach dem Import über eine Aktualisierungsabfrage erledigen lassen.
Mit den ´Gültigkeitsregeln hast du recht, da ich mich mit Access nicht so auskenne war dies mein erster Versuch.
Für Anregungen bin ich Dankbar

Hallo nouba,

danke für den Tipp leider bekomme ich das nicht ans laufen.
Ich habe es wie folgt in die Abfrage eingebaut:

TrimChar([Inhalt])

Darauf erhalte ich folgende Fehlermeldung:
Falsche Anzahl an Argumenten für die Funktion angegeben in Abfrageausdruck 'TrimChar([Inhalt])'

Gruss Jürgen

Arne Dieckmann · 29. Juni 2004

Wozu zeigt Norbert AKA "Nouba" eigentlich einen Beispielaufruf? *rolleyes.gif* Und warum werden Fehlermeldungen eigentlich nicht einmal gedeutet?

In der Entwurfsansicht der Abfrage:

TrimChar([Inhalt];"_")

In SQL/VBA muss das Semikolon durch ein Komma ersetzt werden.

@norbert: Sorry fürs Einmischen. *bye

accessneuling · 29. Juni 2004

Hallo Arne,

Danke *holy
Die Nacht war kurz, die Tomaten auf den Augen dafür etwas Grösser.

Danke an Nouba,

es funktioniert super *top

Gruss Jürgen

Office: Ersetzen von Unterstrich

Ersetzen von Unterstrich

Ersetzen von Unterstrich

Ersetzen von Unterstrich

Ersetzen von Unterstrich

Ersetzen von Unterstrich - Similar Threads - Ersetzen Unterstrich

VBA: Platzhalter ersetzen und evtl. leere Zeile einfügen

Ersetzen von "." durch "/" in Datum

Werte ersetzen

Teams/Excel - Kein markieren/kopieren bei neuem Suchen und Ersetzen Design

23 Nummern von 1-2048 durch vorbestimmtes Wort ersetzen und umgekehrt

Radiobutton durch If-Anweisung ersetzen

Schriftfarbe rot - suchen und ersetzen