Wer ist online?
Buchempfehlung
FreeBASIC-Chat
FreeBASIC-Nachrichten jetzt auch über Twitter erhalten. Follow us!Referenz - WINPUT
Syntax: WINPUT (Anzahl [, Dateinummer])
Typ: Funktion
Kategorie: Unicode
WINPUT liest 'Anzahl' Zeichen von der Tastatur oder aus einer Datei. Die Funktion arbeitet wie 
INPUT (Funktion), gibt jedoch einen WSTRING zurück.
- 'Anzahl' ist die Zahl der Zeichen, die eingelesen werden sollen.
- 'Dateinummer' ist die Nummer einer im INPUT-Modus geöffneten Datei.
- Der Rückgabewert ist ein WSTRING, der die eingegebenen Zeichen enthält.
Wird eine Dateinummer angegeben, dann liest der Befehl 'Anzahl' Zeichen aus einer Datei und aktualisiert den Dateicursor. Ansonsten wartet er auf die Eingabe von 'Anzahl' Zeichen von der Tastatur und gibt diese als WSTRING zurück. Erweiterte Zeichen (wie z. B. die Pfeiltasten) werden nicht eingelesen. Die Zeichen werden nicht auf dem Bildschirm ausgegeben.
Hinweis: Zur Zeit unterstützt FreeBASIC keine Unicode-Eingabe über die Tastatur! Der Befehl kann nur zum Lesen aus einer Datei verwendet werden.
Beispiel:
Dim char As WString * 2
Dim filename As String, enc As String
Dim f As Integer
Line Input "Bitte den Dateinamen eingeben: ", filename
Line Input "Encoding eingeben (optional): ", enc
If enc = "" Then enc = "ascii"
f = FreeFile
If Open(filename For Input Encoding enc As #f) = 0 Then
Print "Druecken Sie die Leertaste, um ein Zeichen aus der Datei auszulesen, oder ESC zum Beenden."
Do
Select Case Input(1)
Case " " ' Space
If EOF(f) Then
Print "Das Dateiende wurde erreicht."
Exit Do
End If
char = WInput(1, f)
Print char & " (Zeichen Nr. " & Asc(char) & ")"
Case Chr(27) ' Escape
Exit Do
End Select
Loop
Close #f
Else
Print "Die Datei konnte nicht geöffnet werden."
End If
SleepAchtung: ENCODING kann zusammen mit UTF-codierten Dateien nur dann erfolgreich eingesetzt werden, wenn das 
Byte Order Mark (BOM) gesetzt ist und mit der angegebenen Codierung übereinstimmt. Ansonsten wird der Laufzeitfehler 2 (File not found) zurückgegeben.
Unterschiede zu QB: neu in FreeBASIC
Plattformbedingte Unterschiede:
Unicode wird in der DOS-Portierung von FreeBASIC nicht unterstützt.
Unterschiede zu früheren Versionen von FreeBASIC: existiert seit FreeBASIC v0.15
Unterschiede unter den FB-Dialektformen:
In der Dialektform -lang qb steht WINPUT nicht zur Verfügung und kann nur über __WINPUT aufgerufen werden.
Siehe auch:INPUT (Funktion), WSTRING (Datentyp), OPEN, Dateien (Files), Benutzereingaben
| Zusätzliche Informationen und Funktionen | ||||
|---|---|---|---|---|
|
||||
Versionen