ViaThinkSoft CodeLib
This article is in:
CodeLib → Programming aids → Other programming languages
Im folgenden einige Codebeispiele für FILE.asTextFile und deren Erklärung.
Die Datei wird geöffnet und an ihren Inhalt wird 10 Mal "Zusatz " angehängt. Danach wird die Datei gespeichert und geschlossen.
Die Datei wird geöffnet. Per content.lineCount und content.length werden die Zeilen- und die Zeichenanzahl ermittelt und als MESSAGE ausgegeben.
Nach dem Öffnen der Datei im Textdateienkontext wird ab dem 1. Zeichen nach dem ersten Vorkommen der Zeichenkette "kop" gesucht. Die Stelle, an der der Text gefunden wurde, wird per MESSAGE ausgegeben.
Nachdem die Datei im Textdateienkontext geöffnet wurde, wird ab dem 3. Zeichen des Dateiinhalts die Zeichenkette "UI" eingefügt. Anschließend wird die Datei gespeichert und geschlossen.
Nachdem die Datei im Textdateienkontext geöffnet wurde, wird der Text vom 3. bis 4. Zeichen aus dem Inhalt der Datei entfernt. Abschließend wird gespeichert.
# Listing 1:
# ----------
myFile = FILE
myFile.name = "C:\Dokumente und Einstellungen\thommy\Desktop\test.txt"
myFile.asTextFile.open
for (i=1;i<=10;i++) {
myFile.asTextFile.content.append { text="Zusatz " do }
}
myFile.asTextFile { save close }
# Listing 2:
# ----------
myFile = FILE
myMsg = MESSAGE
myFile.name = "C:\Dokumente und Einstellungen\thommy\Desktop\test.txt"
myFile.asTextFile.open
myMsg.text = "Zeilen: " + myFile.asTextFile.content.lineCount
myMsg.show
myMsg.text = "Zeichen: " + myFile.asTextFile.content.length
myMsg.show
# Listing 3:
# ----------
myFile = FILE
myMsg = MESSAGE
myFile.name = "C:\Dokumente und Einstellungen\thommy\Desktop\test.txt"
myFile.asTextFile.open
myFile.asTextFile.content.scan.pos = 1
myFile.asTextFile.content.scan.for = "kop"
myMsg.text = "Gefunden bei: " + myFile.asTextFile.content.scan.next
myMsg.show
# Listing 4:
# ----------
myFile = FILE
myFile.name = "C:\Dokumente und Einstellungen\thommy\Desktop\test.txt"
myFile.asTextFile.open
myFile.asTextFile.content.insert.pos = 3
myFile.asTextFile.content.insert.text = "UI"
myFile.asTextFile.content.insert
myFile.asTextFile { save close }
# Listing 5:
# ----------
myFile = FILE
myFile.name = "C:\Dokumente und Einstellungen\thommy\Desktop\test.txt"
myFile.asTextFile.open
myFile.asTextFile.content.remove.startPos = 3
myFile.asTextFile.content.remove.endPos = 4
myFile.asTextFile.content.remove
myFile.asTextFile { save close }