Hiho,
ich habe in diesem Zusammenhang auch eine Frage, da ich auch die Skripte von Roman Benesch noch verwende, wenn auch mittlerweile in leicht abgewandelter Form.
Thoran1 hat geschrieben:
Ich mache das in meinen Skripten wie folgt (z.B. in einer Funktion, die automatisch einen Text als Regionsbotschaft erzeugt):
Code:
#func BotschaftAnRegion $text
{
; Sendet $text als Regionsbotschaft. Zeilenumbrüche werden automatisch
; erzeugt und der Text wird korrekt nach Eressearegeln umgebrochen.
;
; Parameter:
; $text : ANY
; RETURN : BOOLEAN
#var $bef
#var $result
; Parameter überprüfen und im Fehlerfall FALSE zurückgeben
#if ''==$text
{
#call Fehler 'Regionsbotschaft: Kein Text angegeben' TRUE
#return FALSE
}
; Befehl generieren
$bef='BOTSCHAFT AN REGION '+QUOTE+$text+QUOTE
$result=BefehlEintragen(UNIT.Nummer,$bef)
; Ergebnis zurückgeben
#return $result
}
Die Konstante QUOTE ist dabei wie folgt zu definieren (ich habe dafür ein eigenes vms-Modul, das alle notwendigen Konstanten enthält):
Zitat:
#const QUOTE '\34'
#const SINGLEQUOTE '\39'
#const DOUBLEBACKSLASH '\\'
#const AT '\64'
Welche Ausgabeform nutzt Du? Ich verwende Vorlage, um meinen CR zu bearbeiten und einen neuen CR auszuspucken. Doch da funktioniert das leider nicht mit den Anführungszeichen. Jedes Mal werden die bei der CR-Erzeugung von Vorlage durch Leerzeichen ersetzt. Lasse ich Vorlage eine reine Befehlsdatei erstellen, funktioniert das mit den Anführungszeichen. Aber bei der Befehlsdatei habe ich den Nachteil, dass ich da wieder Hand anlegen muss, um die Zugvorlage zum CR hinzuzufügen. Außerdem geht mir die automatische Einheitenbestätigung über den #tag-Befehl verloren.
Weiß da jemand Rat für mich und meine CRs?
Beste Grüße und vielen Dank im Voraus
Martin