OpenOffice.info

Sub Main
MeinText = ",a,b,c,,,d,e,f,"
msgbox MeinText
For i = 1 to Len (MeinText)
	if MID(MeinText,i,1)= "," Then
		MID(MeinText,i,1,".")
	end If
Next
Msgbox MeinText
End Sub

[quote="bienlein"]Hallo,

ich suche eine Funktion mit der ich in einem String alle Kommas durch einen Punkt ersetzen kann.

Alternativ würden mit auch Funktionen weiterhelfen mit denen ich die länge des Strings herausfinden könnte und den String dann Zeichen für Zeichen durchsuchen kann.

Vielen Dank schonmal
Matthias[/quote]

[code]Sub Main
MeinText = ",a,b,c,,,d,e,f,"
msgbox MeinText
For i = 1 to Len (MeinText)
if MID(MeinText,i,1)= "," Then
MID(MeinText,i,1,".")
end If
Next
Msgbox MeinText
End Sub[/code]

Stephan

Hallo,

ich suche eine Funktion mit der ich in einem String alle Kommas durch einen Punkt ersetzen kann.

Alternativ würden mit auch Funktionen weiterhelfen mit denen ich die länge des Strings herausfinden könnte und den String dann Zeichen für Zeichen durchsuchen kann.

Vielen Dank schonmal
Matthias