OpenOffice.info

Code: Alles auswählen

Do 
i = i + 1 
teil = Left(gesamt, i) 
if ASC(Right(teil,1)) < 97 OR ASC(Right(teil,1)) > 122 Then 
gesamt = Left(teil, LEN(teil)-1) & RIGHT(gesamt, LEN(gesamt)-i) 
End If 
Loop While LEN(gesamt) > i

Code: Alles auswählen

Sub Schlangentext 
Dim Dok as Object 
Dim Cursor as Object 
Dim x As Integer 
Dim zm As Integer 
Dim I As Long 
Dim Replace As Object 
Dim zeichen(6) As String 
Dim nichts(6) As String 

ViewCursor=ThisComponent.GetCurrentController. ViewCursor
Laenge = LEN(ViewCursor.String)

gesamt = ViewCursor.String
gesamt = LCASE(gesamt)
i = 0

Do
i = i + 1
teil = Left(gesamt, i)
if ASC(Right(teil,1)) < 97 OR ASC(Right(teil,1)) > 122 Then
gesamt = Left(teil, LEN(teil)-1) & RIGHT(gesamt, LEN(gesamt)-i)
End If
Loop While LEN(gesamt) > i

ViewCursor.String = gesamt
ViewCursor.CharFontName = "Arial" 
ViewCursor.CharHeight = 20
ViewCursor.CharKerning = 300
 
ViewCursor.goRight(LEN(gesamt),False)
ViewCursor.goLEFT(LEN(gesamt),False)
'exit sub
x = -100 

do 
ViewCursor.goRight(1,True) 
ViewCursor.CharEscapement = x 
ViewCursor.goRight(1,False) 
ViewCursor.goLeft(1,False) 

Select Case x
	Case -100 
		zm = 10 
	Case -90
		zm = 10 
	Case -80  
		zm = 40 
	Case -40  
		zm = 60 
	Case 20  
		zm = 30 
	Case 50  
		zm = 25 
	Case 75  
		zm = 25 
	Case 100  
		zm = -24 
	Case 76  
		zm = -24 
	Case 52  
		zm = -33 
	Case 19  
		zm = -60 
	Case -41  
		zm = -40 
	Case -81  
		zm = -10 
	Case -91  
		zm = -9 
End Select
x = x + zm 
j = j + 1 
Loop While j < LEN(gesamt)

End Sub

Code: Alles auswählen

rem variablen
Sub Schlangentext
Dim Dok as Object
Dim Cursor as Object
Dim x As Integer
Dim zm As Integer
Dim I As Long
Dim Replace As Object
Dim zeichen(6) As String
Dim nichts(6) As String

Dok = StarDesktop.CurrentComponent
Cursor = Dok.Text.createTextCursor()

Cursor.goToStartOfParagraph(False)
rem die Zahl der Zeichen in der Zeile auf 60 begrenzen
Cursor.goRight(60,False)
Dok.Text.insertControlCharacter(Cursor, _
com.sun.star.text.ControlCharacter.PARAGRAPH_BREAK, False)

rem Text formatieren
Cursor.goToEndOfParagraph(True)
Cursor.CharFontName = "Arial"
Cursor.goToStart(Fals)
Cursor.goToEnd(True)
Cursor.CharHeight = 20
Cursor.goToStart(Fals)
Cursor.goToEnd(True)

rem hier geht es aber nicht, wollte es horizontal zentrieren
Cursor.ParaAdjust="Center"
Cursor.goToStart(Fals)

rem unerwünschte Zeichen ersetzen

zeichen() = Array(".", ",", "?", "!", _
":", ";", " ")
nichts() = Array("", "", "", "", "", "", "")

Replace = Dok.createReplaceDescriptor

For I = 0 To 6
Replace.SearchString = zeichen(I)
Replace.ReplaceString = nichts(I)
Dok.replaceAll(Replace)
Next I

rem Zeichenhöhe verändern

x = -100

do
cursor.goRight(1,True)
cursor.CharEscapement = x
cursor.goRight(1,False)
cursor.goLeft(1,False)

if x = -100 then
zm = 10
end if
if x = -90 then
zm = 10
end if
if x = -80 then
zm = 40
end if
if x = -40 then
zm = 60
end if
if x = 20 then
zm = 30
end if
if x = 50 then
zm = 25
end if
if x = 75 then
zm = 25
end if
if x = 100 then
zm = -24
end if
if x = 76 then
zm = -24
end if
if x = 52 then
zm = -33
end if
if x = 19 then
zm = -60
end if
if x = -41 then
zm = -40
end if
if x = -81 then
zm = -10
end if
if x = -91 then
zm = -9
end if

x = x + zm

Loop

rem Hier will es aber nicht zu Ende gehen, sondern es arbeitet weiter

End Sub

Code: Alles auswählen

Cursor.goRight(1, True)

Code: Alles auswählen

Cursor.goleft(1, True)

Code: Alles auswählen

Cursor.goRight(1, False)
Cursor.goRight(1, True)

Code: Alles auswählen

text = "Dein Text"
x=0
Do
	x = x+1
	teil = Left(text, x)
	If Right(teil,1) = " " OR "." Then 'oder Sonstiges 
	teil = LEFT(teil, LEN(teil)-1)
	text = teil & RIGHT(text, LEN(text)-x)
Loop While LEN(text) < x

Code: Alles auswählen

text = LCASE(text)