Text in File speichern mit Formatierung

ich würds am ehesten mit delphi lösen. da geht das mit dem speichern unter und dergleichen mit nem mausklick und ner zeile source .

bin @ work und firewall lässt den download nicht zu

sehe ich das richtig ? im prinzip brauchst du nur eine textersetzung ?

was ist denn das zielformat (wegen deiner "formatierungszeichen" ?

@atrox

>im prinzip brauchst du nur eine textersetzung ? Richtig - bis auf die Umlaute die sollten in Zeichen umgewandelt werden.
Welches Zeichen für welchen Umlaut steht müsst ich noch checken.

>was ist denn das zielformat (wegen deiner "formatierungszeichen" ?
Das Zielformat ist ".vts" ein Teletext - Format.

Kann mir jemand bei sowas helfen?
Am liebsten in VB falls ich mal was ändern muss - ansonsten ist die Sprache egal.

im prinzip hast du zwei möglichkeiten:

a) du synthetisierst die datei direkt aus deinem programm: dh du gibts file-header, text-header (HA-AE) aus und dann für jede zeile des eingabetextes ZxxA, gefolgt von (max?) 32 zeichen und dann wieder ein ZxxE, gefolgt von einem zeilenende-zeichen.

b) du nimmst die eine datei als vorlage und füllst sie aus: dazu kopierst du solange zeichen aus der vorlage bis du auf ein '-' stößt. für jedes '-' kopierst du ein zeichen aus dem text in die zieldatei; bis das erste non-'-' zeichen auftauchst, in dem fall movest du im eingabetext bis zum nächsten zeilenanfang, und fängst die schleife oben wieder an (dh. solange zeichen aus vorlage kopieren, bis ein '-' auftaucht.

--
ich habe mal ein ganz ähnliches programm für die anzeigetafel im praterstadion gemacht. diese wird von einem PC/XT gesteuert, weil sich die steckkarte nicht mit modernen ISA-bussen verträgt. um nun sportergebnisse bei diversen veranstaltungen (nicht alle) automatisiert anzuzeigen, werden die daten exportiert und mein programm setzt sie - schön formatiert - in die binärfile-vorlage des antiken ansteuerungsprogrammes ein. (dabei war zu beachten, daß es auch unterschiedliche schriftgrößen gibt, usw...)

Hier nochmal das File voll mit Text.

click here

So schauts dann in der Software aus:

@cad: willst du jetzt von plain-text in das file format oder von file-format in plain-text??

naja, im vb geht das recht simpel - obwohl ich da immer durcheinander komm mit den zahlen...

var0 = "bla... header"&eingabe
counter=0
while inStr(var0, chr(13)&chr(10))>0
(
inStr(var0, chr(13)&chr(10)) -> pos
left(var0,pos+-1) -> var1
right(var0,pos+2|3) -> var2
var1 & counter & var2 -> var0
counter=counter+1
)

also irgendsowas halt

edit: is nur grob, und da ich schon lang nimmer die functions auswendig kann müssen die nicht unbedingt stimmen, die parameterreihenfolge stimmt scho garnet...

edit2: ich seh grad dass das ja ein fixed format is, da musst du u.U. die zeilen mit blanks oder so auffüllen (siehe funktion "string") also irgendwas einbaun wie
if newpos-oldpos<40 (stimmt 40?) then
blabla
end if