Hallo,
ich habe ein wirklich dringendes Problem.
Bitte helft mir.
Ich habe eine Access-Datenbank.
Von einer bestimmten Tabelle möchte ich folgendes machen:
Alle Datensätze durchgehen und jedes Feld jedes Datensatzes
auf das Vorkommen eines „Zeilenumbruches“ prüfen. Wenn das Zeichen gefunden wird
soll jeder Zeilenumbruch in diesem Feld in eine bestimmte Zeichenkette wie „³n“ oder so
umgewandelt werden.
Ich kenne mich mit Access absolut nicht aus…Vielen Dank für eure Hilfe.
bye
Martin
Zum Ersetzen von Zeichenketten kannst du z.B. meine folgende Funktion verwenden:
Function StrSubs(s, Subs, Optional Repl = "", Optional N = 0)
'
' Teilzeichenkette **Subs** in Zeichenkette **S** durch **Repl** ersetzen
' Ersetzung maximal **n** mal ausführen, wenn n \> 0, sonst alle ersetzen
'
Dim FPos As Integer, I As Integer, Res As String
On Error GoTo Er
If Nz(s, "") = "" Then StrSubs = Null: GoTo Ex
If Nz(Subs, "") Then StrSubs = s: GoTo Ex
Res = s
I = 0
FPos = InStr(1, Res, Subs)
Do While FPos \> 0
I = I + 1
If N \> 0 And I \> N Then Exit Do
If FPos \> 1 Then
Res = Mid(Res, 1, FPos - 1) & Repl & Mid(Res, FPos + Len(Subs))
Else
Res = Repl & Mid(Res, FPos + Len(Subs))
End If
FPos = InStr(FPos + Len(Repl), Res, Subs)
Loop
StrSubs = Res
Ex:
Exit Function
Er:
MsgBox error$
Resume Ex
End Function
Wenn Du also alle Zeichenpaare CR/LF durch die Zeichen „³n“ ersetzen willst:
s = StrSubs(s, Chr(13) & Chr(10), „³n“)
bzw.:
s = StrSubs(s, vbCrLf, „³n“)
Überprüfe vorher aber nochmal, auch welchen Zeichen dein „Zeilenumbruch“ besteht!
Reinhard