Loc-Funktion
Aktualisiert: November 2007
Gibt einen Long-Wert zurück, der die aktuelle Lese-/Schreibposition in einer geöffneten Datei angibt.
Public Function Loc(ByVal FileNumber As Integer) As Long
Parameter
- FileNumber
Erforderlich. Beliebige gültige Integer-Dateinummer.
Ausnahmen
Ausnahmetyp |
Fehlernummer |
Bedingung |
---|---|---|
FileNumber ist nicht vorhanden. |
||
Dateimodus ist ungültig. |
Beachten Sie die Spalte "Fehlernummer", wenn Sie Visual Basic 6.0-Anwendungen aktualisieren, die eine unstrukturierte Fehlerbehandlung verwenden. (Sie können die Fehlernummer mit der Number-Eigenschaft (Err-Objekt) vergleichen.) Wenn möglich, sollten Sie jedoch erwägen, eine solche Fehlersteuerung durch eine Übersicht über die strukturierte Ausnahmebehandlung für Visual Basic zu ersetzen.
Hinweise
Die Loc-Funktion ist nullbasiert. Wenn sie verwendet wird, um das erste Byte einer Datei abzurufen, wird 0 (null) zurückgegeben.
Die Loc-Funktion wird für die Abwärtskompatibilität bereitgestellt und hat möglicherweise Auswirkungen auf die Leistung. Sofern es sich nicht um Legacyanwendungen handelt, bietet das My.Computer.FileSystem-Objekt ein besseres Leistungsverhalten. Weitere Informationen hierzu finden Sie unter Dateizugriff mit Visual Basic.
Die folgende Aufstellung beschreibt die Rückgabewerte für die einzelnen Dateizugriffsmodi:
Modus |
Rückgabewert |
---|---|
Random |
Nummer des letzten Datensatzes, der aus der Datei gelesen oder in die Datei geschrieben wurde. |
Sequential |
Aktuelle Byte-Position in der Datei dividiert durch 128. Informationen, die von Loc für sequenzielle Dateien zurückgegeben werden, werden jedoch nicht verwendet und sind auch nicht erforderlich. |
Binary |
Position des letzten gelesenen oder geschriebenen Bytes. |
Beispiel
In diesem Beispiel wird mit der Loc-Funktion die aktuelle Schreib-/Leseposition innerhalb einer geöffneten Datei zurückgegeben. In diesem Beispiel ist MyFile eine Textdatei mit einigen Zeilen mit Beispieldaten.
Dim location As Long
Dim oneChar As Char
FileOpen(1, "C:\TESTFILE.TXT", OpenMode.Binary)
While location < LOF(1)
Input(1, oneChar)
location = Loc(1)
WriteLine(1, location & ControlChars.CrLf)
End While
FileClose(1)
Hinweise für Entwickler intelligenter Geräte
Diese Funktion wird nicht unterstützt.
Anforderungen
Namespace:Microsoft.VisualBasic
**Modul:**FileSystem
**Assembly:**Visual Basic Runtime Library (in Microsoft.VisualBasic.dll)
Siehe auch
Referenz
<unmanagedCodeEntityReference>Seek</unmanagedCodeEntityReference>-Funktion