| formatierte Textausgabe von ivh / ivh / n |
| Der Code erklärt sich eigentlich von selber... Es geht um lange Texte die formatiert aus gegeben werden sollen. Einfach die Variabel angeben in der der Text enthalten ist. Angeben der max Zeichenanzahl pro Zeile. Textposition x/y und dann noch Zeilenabstand. [code:1:0b4a6af4d7] extralang$ = "hier kommt die komplette Bibel rein. den es sind ja nur ein paar kilobyte. aber ich bin mir nicht sicher ob mein pc nachher abstürtzen wird. darum höre ich besser auf weiter zu tippen..." Ausgabe ( extralang$, 30, 50, 30, 20 ) Function Ausgabe( zulang$, maxlaenge, pos_x, pos_y, zeilenabstand ) zentriert = 0 textlaenge = Len( zulang$) For i = 1 To textlaenge+1 temp$ = temp$ + Mid$( zulang$, i, 1 ) If Len(temp$) < maxlaenge Then If Right$( temp$, 1 ) = " " Or (i=textlaenge) Then ausgabe$ = temp$ k = 1 Else k = k + 1 EndIf Else Text pos_x, pos_y, ausgabe$, zentriert, 0 ausgabe$ = "" temp$ = "" i = i - k pos_y = pos_y + zeilenabstand EndIf Next Text pos_x, pos_y, ausgabe$, zentriert, 0 End Function [/code:1:0b4a6af4d7] |