Bauinformatik Teil 1 - Baustatik-Info-Server
Bauinformatik Teil 1 - Baustatik-Info-Server
Bauinformatik Teil 1 - Baustatik-Info-Server
Sie wollen auch ein ePaper? Erhöhen Sie die Reichweite Ihrer Titel.
YUMPU macht aus Druck-PDFs automatisch weboptimierte ePaper, die Google liebt.
Seite 28 <strong>Bauinformatik</strong> - <strong>Teil</strong> 1 - Übungsskript / 2011<br />
7 Arbeiten mit Dateien<br />
7.1 Dateioperationen für sequentiellen Zugriff<br />
Die Datei wird geöffnet unter Vorgabe des Dateinamens und des Verarbeitungskenners (Input,<br />
Output, Append). Die Zugriffe auf die Datei erfolgen unter Vorgabe der Kanalnummer.<br />
In nachfolgender Tabelle werden wesentliche Dateifunktionen zusammengefaßt.<br />
Funktion Beschreibung Beispiel<br />
Open Öffnen einer Datei. Open "bsp.txt" For Input As #1<br />
Input Einlesen aus einer Datei. Input #1, x, y<br />
Write Schreiben ín eine Datei. Write #1, x, y<br />
Close Schließen der Daten. Close #1<br />
Input Line Einlesen einer Datenzeile aus Textdatei. Input Line #1, s<br />
EOF Dateiende erkennen. Do While Not EOF(1)<br />
Die EXCEL-Anwendung liefert einen Standarddialog zur Suche einer Datei. Der Aufruf dieses<br />
Dialogs wird in nachfolgendem Code dargestellt.<br />
Die im nachfolgenden Beispiel dargestellte Funktion wird als Steuerprogramm zur Berechnung<br />
des Torsionsträgheitsmomentes nach der Brendt’schen Formel eingesetzt (siehe Gleichung 12).<br />
Im 2. Schritt wird die Methode GetOpenFilename des Application-Objekts 4 aufgerufen. Die<br />
Methode startet den allgemeinen Windows-Datei-Öffnen-Dialog. Als Rückgabewert liefert die<br />
Methode den Namen der gewählten Datei. Wird der Dialog vom Anwender abgebrochen, so<br />
wird der String Falsch zurückgegeben. 5<br />
’ Dateinamen ermitteln<br />
Private Sub CommandButton1_Click()<br />
’ 1: Initialisierung<br />
Call Brendt.Init<br />
’ 2: Dateinamen festlegen<br />
datei$ = Application.GetOpenFilename( _<br />
fileFilter:="Textdateien (*.txt),*.txt")<br />
’ 3: Starten der Berechnung<br />
If Not datei$ = "Falsch" Then<br />
Range("Datei") = datei$<br />
’ Einlese der Datei und Berechnung<br />
Call Brendt.ProfilLesen(datei$)<br />
4 Das Objekt Application, siehe auch OOP, stellt alle Objekte der EXCEL-Anwendung zur Verfügung. Objekt<br />
der EXCEL-Anwendung sind z.B. die Listen der Tabellen und Diagramme, sind auch die Range-Objekte, die die<br />
Kommunikation mit den Tabellenfeldern ermöglicht.<br />
5 Mit der Rückgabe Falsch im Fall des Abbruchs ist es unzulässig eine Datei mit dem Namen Falsch anzusprechen,<br />
was i.A. kein Problem sein dürfte.<br />
E. Baeck