Office: (Office 2003) Komma durch Komma mit Leerzeichen

Helfe beim Thema Komma durch Komma mit Leerzeichen in Microsoft Access Hilfe um das Problem gemeinsam zu lösen; Code: Einigen Kollegen ist es allerdings egal, ob man sich schreibtechnisch an irgendwelche Konventionen hält. Wie machst du das dann bei... Dieses Thema im Forum "Microsoft Access Hilfe" wurde erstellt von drzwockel, 14. November 2010.

Seite 2 von 3

JOSEF P.

Josef P.

Komma durch Komma mit Leerzeichen

Code:

Einigen Kollegen ist es allerdings egal, ob man sich schreibtechnisch an irgendwelche Konventionen hält.
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Wie machst du das dann bei Rechtschreib- bzw. Grammatik-Fehlern?

Da ich selbst neugierig war *wink.gif*, mein Versuch:
Code:

Public Function RegExReplaceText(ByVal sSource As String, ByVal sSearchPattern As String, ByVal sReplaceText As String) As String
'Basis Codebeispiel - "Intelligente" Textanalyse - MS-Office-Forum

Dim Regex As Object 'VBScript_RegExp_55.RegExp
Set Regex = CreateObject("Vbscript.Regexp")
With Regex

.Pattern = sSearchPattern
.Global = False
Do While .Test(sSource)
sSource = .Replace(sSource, sReplaceText)
Loop

RegExReplaceText = sSource

End With
Set Regex = Nothing

End Function

Private Function InsertSpaces(ByVal sSource As String) As String

Const SearchPattern As String = "(.*)([\.,;])([a-z;A-Z])"
Const ReplaceText As String = "$1$2 $3"

InsertSpaces = RegExReplaceText(sSource, SearchPattern, ReplaceText)

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

Getestet habe mit:
Code:

' RegExReplaceText_InsertSpaces("abc.xyz", "abc. xyz")
' RegExReplaceText_InsertSpaces("abc. xyz", "abc. xyz")
' RegExReplaceText_InsertSpaces("aaa.bbb.ccc", "aaa. bbb. ccc")
' RegExReplaceText_InsertSpaces("aaa. bbb. ccc", "aaa. bbb. ccc")
' RegExReplaceText_InsertSpaces("aaa.bbb. ccc", "aaa. bbb. ccc")
' RegExReplaceText_InsertSpaces("aaa. bbb.ccc", "aaa. bbb. ccc")
'
' RegExReplaceText_InsertSpaces("abc,xyz", "abc, xyz")
' RegExReplaceText_InsertSpaces("abc, xyz", "abc, xyz")
' RegExReplaceText_InsertSpaces("aaa,bbb,ccc", "aaa, bbb, ccc")
' RegExReplaceText_InsertSpaces("aaa, bbb, ccc", "aaa, bbb, ccc")
' RegExReplaceText_InsertSpaces("aaa,bbb, ccc", "aaa, bbb, ccc")
' RegExReplaceText_InsertSpaces("aaa, bbb,ccc", "aaa, bbb, ccc")
'
' RegExReplaceText_InsertSpaces("aaa;bbb;ccc", "aaa; bbb; ccc")
'
' RegExReplaceText_InsertSpaces("1.500,--", "1.500,--")
' RegExReplaceText_InsertSpaces("1.500,00", "1.500,00")
Public Sub RegExReplaceText_InsertSpaces(ByVal sSource As String, ByVal sExpected As String)

Dim strActual As String
strActual = InsertSpaces(sSource)

Assert.AreEqual sExpected, strActual

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

Falls jemand selbst testen will und AccUnit installiert hat: RegExTest.zip

mfg
Josef

Josef P., 16. November 2010

#16
EBS17

ebs17

Code:

.Global = False
Do While .Test(sSource)
sSource = .Replace(sSource, sReplaceText)
Loop
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Wenn man .Global auf True setzt, kann man auf Schleife und Test verzichten, weil dann eben alle Treffer bearbeitet werden statt des ersten.

ebs17, 16. November 2010

#17
JOSEF P.

Josef P.

\@Eberhard: Mit meinem Suchtext funktionierte das nicht.
Dann wurde aus "aaa.bbb.ccc" nicht "aaa. bbb. ccc" sondern "aaa.bbb. ccc".
(Grund: bbb ist in der ersten Regex-Suche bereits enthalten.)

Wie müsste der RegEx-Ausdruck aussehen, dass beide Punkte erkannt werden?
/edit: so würde es (derzeit) funktionieren:
Code:

Const SearchPattern As String = "([\.,;])([a-z;A-Z])"
Const ReplaceText As String = "$1 $2"
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

... die Zeichen vor einem Punkt oder Komma usw. sind für die oben angeführten Beispiele egal.

/edit 2:
Problemfall:
Code:

' RegExReplaceText_InsertSpaces("aaa,1.500,00,ccc", "aaa, 1.500,00, ccc")
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Wie könnte man diese Problemstellung abdecken?

Josef P., 16. November 2010

#18
DRZWOCKEL

drzwockel

Komma durch Komma mit Leerzeichen

... wo bekomme ich denn AccUnit her?

Hat sich erledigt ... im Fuß von Josefs # habe ich den Link gefunden

drzwockel, 16. November 2010

#19
JOSEF P.

Josef P.

[OT]

Beim Aufruf des Moduls in der Test DB verlangt er eine SimplyVBUnit.dll in der Version 7.0 und Acc.Unit.Integration.tlb in der Version 0.9
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Das liegt an den Verweisen, die ich für die Testklasse einfügte. Damit ist nämlich das Ausprobieren von Beispielen etwas einfacher als das manuelle Ausprobieren bzw. manuelle Ausprogrammieren der Beispiel-Tests. *wink.gif*

Einen Link zu AccUnit findest du in meiner Signatur. *wink.gif*
Falls du dich für Unit-Tests unter Access interessierst: Paul hat einen Vortrag bei der letzten AEK gehalten.

mfg
Josef

Josef P., 16. November 2010

#20
EBS17

ebs17

Wie müsste der RegEx-Ausdruck aussehen, dass ...
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Das ist eine einfache Frage auf ein komplexes Problem. In dem gesuchten Pattern (Suchmuster), also in einem Ausdruck, steckt ein Großteil der Verarbeitungslogik drin. Darin alle (welche) Fälle abzuhandeln ist die Herausforderung.
Auf Anhieb wird mir das nicht gelingen, dafür mache ich das zu selten. Ich glaube aber, in einem Dokument gelesen zu haben, dass man Worte abgrenzen kann, so dass man zwischen Worten (aus Buchstaben) und Zahlen unterscheiden müssen könnte.

Auch an drzwockel: Wie lautet die konkrete Aufgabe?
Derzeit: Ergänze an jedes der Zeichen ".,;" ein fehlendes Leerzeichen, falls man sich nicht innerhalb einer Zahl befindet. Ist das so?

ebs17, 16. November 2010

#21
DRZWOCKEL

drzwockel

\@ ebs: ja, genau, dass ist die Aufgabenstellung.

@ Josef: ich habe mir die notwendigen Dateien heruntergeladen, bekomme das mit dem Installieren des SimplyVBUnit nicht hin *frown.gif*

Wer kann helfen?

drzwockel, 16. November 2010

#22
JOSEF P.

Josef P.

Komma durch Komma mit Leerzeichen

SimplyVBUnit ist per Setup-Datei zu installieren.
Anm.: Im Setup von AccUnit verweise ich allerdings auf die Projekt-Startseite von SimplyVBUnit, da ich der Meinung bin, dass sich das so gehört und man nicht einfach einen Link auf die Setup-Datei macht. *wink.gif*

mfg
Josef

Josef P., 16. November 2010

#23
EBS17

ebs17

\@drzwockel: Wie sieht es aus mit einer (Acc2000-lesbaren) Tabelle mit Realdaten?

ebs17, 16. November 2010

#24
EBS17

ebs17

Hier ist erst einmal eine normale VBA-Funktion, die verständlich und anpassbar sein sollte:
Code:

Public Function fAppendBlank(ByVal sText As String) As String
Const W As String = "ABCDEFGHIJKLMNOPQRSTUVWXYZÄÖÜabcdefghijklmnopqrstuvwxyzäöüß"
Dim i As Long
Dim k As Long
Dim Werte As Variant
If Len(sText) < 2 Then
fAppendBlank = sText
Exit Function
End If
Werte = Array(".", ",", ";")
For k = 0 To UBound(Werte)
For i = Len(sText) - 1 To 1 Step -1
If Mid$(sText, i, 1) = Werte(k) _
And InStr(W, (Mid$(sText, i + 1, 1))) > 0 Then
sText = Left$(sText, i) & " " & Mid$(sText, i + 1)
End If
Next
Next
fAppendBlank = sText
End Function
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

ebs17, 16. November 2010

#25
EBS17

ebs17

\@Josef: Zwischenfrage:
Code:

Const SearchPattern As String = "([\.,;])([a-zA-Z])"
Const ReplaceText As String = "$1 $2"
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Wie funktioniert das genau mit diesen $1, $2 ?

Offensichtlich wird der verwendete Wert des ersten Klammerausdrucks mit dem verwendeten Wert des zweiten Klammerausdrucks mit einem zwischengelegten Leerzeichen verkettet. Wie aber findet $1 seinen konkreten Bezug?

ebs17, 16. November 2010

#26
JOSEF P.

Josef P.

\@Eberhard: die $n beziehen sich auf die Klammern im Ausdruck für das Suchmuster ($1 = 1. Klammer von links usw.).

mfg
Josef

Josef P., 16. November 2010

#27
EBS17

ebs17

Komma durch Komma mit Leerzeichen

\@Josef: Bei zwei Zeilen ist das übersichtlich. Ich meine: Damit $n zugeordnet werden kann, wo müssen dann die Klammerausdrücke stehen?
- Genau in der Zeile davor?
- Irgendwo vorher?
- Die Klammerausdrücke müssen in Reihenfolge aufgeführt sein oder können im Code verteilt sein?
Irgendwelche (nachlesbaren) Regeln muss es doch geben.

Meines Wissens nach hat $ in RegEx nur die Bedeutung, ein Zeilenende zu identifizieren.

ebs17, 16. November 2010

#28
DRZWOCKEL

drzwockel

Hallo ebs17,

das ist eine gute Lösung. Ich habe sie auf meine Bedürfnisse angepasst und sie macht auch das, was ich mir vorgestellt habe.

Vielen Dank ....

drzwockel, 16. November 2010

#29
JOSEF P.

Josef P.

Damit $n zugeordnet werden kann, wo müssen dann die Klammerausdrücke stehen?
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Im Suchmuster.

Code:

Const SearchPattern As String = "([\.,;])([a-zA-Z])"
Const ReplaceText As String = "$1 $2"
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Ein anderes Beispiel:
Code:

SearchPattern = "([^\,;\ \.])([\.,;])([^0-9\ -])"
ReplaceText = "$1$2 $3"
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Meines Wissens nach hat $ in RegEx nur die Bedeutung, ein Zeilenende zu identifizieren.
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Du darfst nicht das Suchmuster mit der Ersatzzeichenfolge verwechseln.

Irgendwelche (nachlesbaren) Regeln muss es doch geben.
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Es gibt massenweise Tutorials und Beschreibungen zu RegEx, wenn du Google anwirfst. Es gibt sogar Bücher zum Thema Regular Expressions. *wink.gif*

mfg
Josef

Josef P., 16. November 2010

#30

(Du musst angemeldet oder registriert sein, um eine Antwort erstellen zu können.)

Seite 2 von 3

Thema:

Komma durch Komma mit Leerzeichen

Die Seite wird geladen...

Komma durch Komma mit Leerzeichen - Similar Threads - Komma Komma Leerzeichen
Zelleninhalte in andere Zelle mit Komma getrennt
in Microsoft Excel Hilfe
Zelleninhalte in andere Zelle mit Komma getrennt: Hallo, ich weiß nicht, ob ich im EXCEL Bereich richtig bin, da es sich um eine Tabelle aus einer Access Datenbank handelt. Allerdings müsste ich "nur" in dieser Tabelle einiges ändern: Für jeden...
Zelle leer anzeigen, wenn Wert in der zelle nach dem Komma nicht 0 ist
in Microsoft Excel Hilfe
Zelle leer anzeigen, wenn Wert in der zelle nach dem Komma nicht 0 ist: Hallo zusammen, ich habe da mal wieder ne spezielle Frage. Ich habe eine Arbeitsmappe, in der ein Tabellenblatt die Information beinhaltet, wie gross eine VE ist. In dem anderen Tabellenblatt...
Erbitte komplizierte Formel Wenn,dann oder wenn dies, dann
in Microsoft Excel Hilfe
Erbitte komplizierte Formel Wenn,dann oder wenn dies, dann: Hallo liebe Wissende, folgende 3 Probleme schaffe ich, als Laie, auch mit Hilfe des Internets nicht zu lösen. Mir wird monatlich eine csv-Datei mit folgenden Daten zur Verfügung gestellt. Ich...
Werte aus Spalte(n) in einer Zeile, abhänging der Spaltenüberschrift, ggf. mit Komma zusammenfassen
in Microsoft Excel Hilfe
Werte aus Spalte(n) in einer Zeile, abhänging der Spaltenüberschrift, ggf. mit Komma zusammenfassen: Hallo zusammen, ich habe folgende "Vorliegende Daten" und soll diese wie im Bild "Zieldarstellung" zu sehen aufbereiten. Für jede Teilenummer sollte also nur eine Zeile, mit den entsprechenden...
Formel
in Microsoft Excel Hilfe
Formel: Hi, ich benötige mal eure Hilfe. Ich habe eine Excel für die Arbeit, in der eine Wenn Formel ist, die lautet jetzt so: = WENN(((AE66-16)/2)<0;"";((AE66-16)/2)). Bekomme dann ein Ergebnis, in z.B....
Text in Zelle mit Punkt und Komma in Zahl umwandeln
in Microsoft Excel Hilfe
Text in Zelle mit Punkt und Komma in Zahl umwandeln: Hallo, wie kann ich wenn in A1 1.200,000 steht, das in Zahl umwanden ? Hab es mit der Formel =WECHSELN(A1;",";",")*1 probiert, geht nicht. Jemand ein Idee ? Danke
Punkt statt Komma im NumBlock, aber nur in Excel
in Microsoft Excel Hilfe
Punkt statt Komma im NumBlock, aber nur in Excel: Guten Tag, ich habe seit heute morgen das Problem, dass in Excel, aber NUR in Excel, statt des Kommas im NumBlock ein Punkt gemacht wird. Die Tastatur ist auf Deutsch QWERTZ eingestellt, in Excel...

Anmelden oder registrieren

Suche

Diese Seite verwendet Cookies, um Inhalte zu personalisieren, diese deiner Erfahrung anzupassen und dich nach der Registrierung angemeldet zu halten.
Auf dieser Website werden Cookies für die Zugriffsanalyse und Anzeigenmessung verwendet.
Wenn du dich weiterhin auf dieser Seite aufhältst, akzeptierst du unseren Einsatz von Cookies.

Akzeptieren Weitere Informationen...

Information ausblenden