[GELÖST] Mit Makro Kleinbuchstaben durch Großbuchstaben ersetzen

[Lienucks]

Hallo zusammen!
Mit einem Makro würde ich gerne einen gefundenen Kleinbuchstaben, der unmittelbar nach einem Punkt steht, durch seinen Großbuchstaben ersetzen, also a durch A und z durch Z.
Suchen nach „\.[a-zäöü]“ kann ich.
Aber wie mache ich aus dem gefunden Buchstaben den entsprechenden Buchstaben im ReplaceString?
Wie kann man auf einen mit „\.([a-zäöü])“ gefundenen Teilstring zugreifen und ihn verändern?
Vielen Dank im Voraus!
Lienucks

[mikele]

Hallo,
ich wüsste nicht, dass die üblichen Stringfunktionen von Basic reguläre Ausdrücke verarbeiten.
Folgendes sollte dein Problem lösen:

Code: Alles auswählen

	'Eingangstext
	sText="edd.ade.A.-.."
	aTeile=split(sText,".")
	for i=1 to ubound(aTeile())
		aTeile(i)=ucase(left(aTeile(i),1)) & mid(aTeile(i),2)
	next
	'Ergebnis
	sText=join(aTeile,".")

[Lienucks]

Hoppla! Das sieht ja kompliziert aus. Aber herzlichen Dank!!
Ich werde mal versuchen, etwas draus zu machen, und melde mich in ein paar Tagen wieder.
Und dann bin ich gespannt, wie das mit einem Text mit einer Viertelmillionzeichen in einer Variablen funktioniert.
Lienucks

[musikai]

Und dann bin ich gespannt, wie das mit einem Text mit einer Viertelmillionzeichen in einer Variablen funktioniert.

Ja, das wird spannend. Limit einer Variable ist 65.535 Zeichen.

Code: Alles auswählen

Sub SimpleSearch2
oDescriptor = ThisComponent.createSearchDescriptor()
oDescriptor.SearchRegularExpression=True
oDescriptor.SearchCaseSensitive = True
oDescriptor.SearchString = "\.[a-zäöü]"
oFoundAll = ThisComponent.findAll(oDescriptor)
msgbox oFoundAll.getCount()
For n = 0 to oFoundAll.getCount()-1
oFound = oFoundAll.getByIndex(n)
oFound.setString(ucase(oFound.getString()))
Next
End Sub

[Lienucks]

Das macht Hoffnung- herzlichen Dank!
Leider komme ich derzeit nicht dazu, das auszuprobieren.
Aber ich werde Rückmeldung geben, ob es mein Problem löst!
Bis dann!
Lienucks

[Lienucks]

Das Skript von musikai funktioniert wunderbar! Mein Problem ist gelöst - herzlichen Dank!!!
Lienucks

[Mau]

Hallo Lienucks,

dann bearbeite deinen ersten Eintrag zu dem Thema:
Setze vor das Thema den Vermerk [GELÖST] und schicke den Eintrag so noch einmal ins Forum ab.

Gruß,
Mau