Buchempfehlung
Windows-Programmierung. Das Entwicklerhandbuch zur WIN32-API
Windows-Programmierung. Das Entwicklerhandbuch zur WIN32-API
"Der" Petzold, das über 1000 Seiten starke Standardwerk zum Win32-API - besonders nützlich u. a. bei der GUI-Programmierung in FreeBASIC! [Mehr Infos...]
FreeBASIC-Chat
Es sind Benutzer im FreeBASIC-Chat online.
(Stand:  )
FreeBASIC bei Twitter
Twitter FreeBASIC-Nachrichten jetzt auch über Twitter erhalten. Follow us!

Referenz - WINPUT

Referenz-Navigation

 

Syntax: WINPUT (Anzahl [, Dateinummer])
Typ: Funktion
Kategorie: Unicode

WINPUT liest 'Anzahl' Zeichen von der Tastatur oder aus einer Datei. Die Funktion arbeitet wie BefehlsreferenzeintragINPUT (Funktion), gibt jedoch einen WSTRING zurück.

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
Sleep

Achtung: ENCODING kann zusammen mit UTF-codierten Dateien nur dann erfolgreich eingesetzt werden, wenn das Externer Link!Byte Order Mark (BOM) gesetzt ist und mit der angegebenen Codierung übereinstimmt. Ansonsten wird der BefehlsreferenzeintragLaufzeitfehler 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 Befehlsreferenzeintrag-lang qb steht WINPUT nicht zur Verfügung und kann nur über __WINPUT aufgerufen werden.

Siehe auch:
BefehlsreferenzeintragINPUT (Funktion), BefehlsreferenzeintragWSTRING (Datentyp), BefehlsreferenzeintragOPEN, BefehlsreferenzeintragDateien (Files), BefehlsreferenzeintragBenutzereingaben


Zusätzliche Informationen und Funktionen
  • Der Referenzeintrag wurde am 26.06.2007 von RedakteurMao angelegt.
  • Die aktuellste Version wurde am 28.12.2012 von Redakteurnemored gespeichert.
  Versionen Versionen