Gehe zu deutscher Webseite

ViaThinkSoft CodeLib

This article is in:
CodeLibProgramming aidsOther programming languages

Im folgenden einige Codebeispiele für FILE.asTextFile und deren Erklärung.

# 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 }
Die Datei wird geöffnet und an ihren Inhalt wird 10 Mal "Zusatz " angehängt. Danach wird die Datei gespeichert und geschlossen.



# 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
Die Datei wird geöffnet. Per content.lineCount und content.length werden die Zeilen- und die Zeichenanzahl ermittelt und als MESSAGE ausgegeben.



# 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
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.



# 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 }
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.



# 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 }
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.