Seite 2 von 2
Verfasst: 28.10.2004 20:42
von netfreak
@Sunny: Also ich möchte das deswegen so abspeichern damit ich einfach nachher die Datei ausdrucken kann und das soll ja dann schon was aussehen!
@NicTheQuick: Dein Code funktionirt nicht richtig. Er hat Probleme mit LSet!
Aber danke für eure Antworten!
Verfasst: 29.10.2004 16:20
von netfreak
So ich habe jetzt ne Lösung gefunden!
Danke an alle die mir Geholfen haben oder Tips geben haben!
Verfasst: 29.10.2004 17:14
von NicTheQuick
Was für Probleme gab es denn mit [c]LSet()[/c]? Du musst doch sowieso gemerkt haben, dass diese Zeile nicht relevant für die eigentliche Antwort auf deine Frage war. Naja...
Und wie hast du es jetzt gelöst? Zeig doch mal den Code, damit jeder was davon lernen kann. Zumindest die Newbies.
Verfasst: 29.10.2004 22:38
von netfreak
Ich habe es jetzt mit LSet!
Und zwar so:
Code: Alles auswählen
s$ = LSet(a$, 30)
a$ = LSet(b$, 20
WriteString(s$)
WriteString(a$)
WriteStringN(t$)
So gehts.
Alerdings habe ich nun eine Weiters Problem:
Ich schreibe das jetzt in die Datei, das sieht auch gut aus im Editor(von Win)! Allerdings wenn ich das dan ausdrucke dann sieht das alles nicht mehr so gut aus denn es verschiebt sich alles! Jetzt wolte ich Fragen ob mir jemand sagen kann was ich beim Einlesen Falsch Mache ihr der Code:
Code: Alles auswählen
;Drucken
If PrintRequester()
If StartPrinting("Film Liste")
If StartDrawing(PrinterOutput())
DrawingFont(LoadFont(0, "Arial", 30))
ReadFile(0,"test.txt")
While Eof(0) = 0
drz$ = ReadString()
Locate(100, w) : DrawText(drz$)
w + 50
Wend
CloseFile(0)
StopDrawing()
EndIf
StopPrinting()
EndIf
EndIf
Weiß jemand was ich Falsch mach?
Bin für jede Antwort Dankbar!!!
Verfasst: 30.10.2004 01:35
von NicTheQuick
Das kommt ganz darauf an, welche Schriftart zu benutzt. Nicht bei jeder Schriftart sind alle Zeichen gleich breit. Wenn du bspw. "Courier New" benutzt, sollte alles richtig eingerückt sein, weil jedes Zeichen gleich breit ist.
Verfasst: 30.10.2004 10:47
von netfreak
Jetzt gehts vielen Dank!!!