Hochschule Harz FB Automatisierung und Informatik
1. Labor:Einlesen einer Datei
Programmierung in ArcView
Thema: Einlesen einer Datei und Erzeugen der dazugehörigen Shapelinie
Versuchsziele
Vertiefung im Verständnis im Einlesen einer Datei und in Bearbeitung der FTab.
Aufgabenstellung:
Entwickeln Sie ein Script, welches die mitgelieferte ASCII-Datei ausliest und die Linie im Gewaesser.shp als Polyline einträgt.
Hinweis:
Die Datei darf nicht verändert werden.
Erläuterungen zur Aufgabe:
• Der Zugriff auf die Datei soll mit fester Pfadangabe erfolgen.
• Das Format in der Datei:
Name des Gewässers Anzahl der Werte Rechtswert Hochwert
Versuchsdurchführung
1) Erstellen Sie einen Schalter, der mit dem Script „HSHARZ.BnViewLabor1“ verbunden ist.
2) Öffnen und lesen Sie den Inhalt der Datei „Linie1.dat“. Zeigen Sie den Inhalt in einer Report-Box an.
3) Erzeugen Sie die Polylinie und tragen Sie sie in das Shape Gewaesser.shp.
Hinweis:
Suchen Sie das Shape mit Hilfe des Objektes „View“
Weitere Hinweise:
Open und Einlesen einer Wertes aus einer Datei:
' Verknüpfung zur Datei
sTempFile = "C:\Daten\test.txt"
kanal= LineFile.Make( sTempFile, #FILE_PERM_READ ) if (kanal= nil) then
MsgBox.Error("Konnte die Datei nicht öffnen"+NL+sTempFile,"Error") exit
end
sText = kanal.ReadElt
MsgBox.Info(sText,“Testausgabe") Kanal.close
Linie erzeugen:
Points = List.Make X=12
Y=33
p = Point.Make(x,y) Points.add(p)
MsgBox.ListAsString(Points,"Liste","Test")
' Aus einer Linie ein PolyLine erzeugen shline = PolyLine.Make( {Points} )
' Neuen Datensatz erzeugen NewRec = theFTab.AddRecord
theFTab.SetValue(myFieldShape,NewRec,shline) ' und wo bleibt der Name ?
Neues Gewässer