Winput()
Считывает кол-во двухбайтовых знаков из консоли или файла
Declare Function WInput( ByVal num As Integer ) As WString
Declare Function WInput( ByVal num As Integer, ByVal filenum As Integer = 0 ) As WString
result = WInput( num [, [#]filenum } )
num
Считывает указанное количество двухбайтовых знаков из консоли или связанного файла/устройства под номером filenum.
Первая версия ожидает и читает n расширенных символов из буфера клавиатуры. Дополнительные клавиши не читает. Символы не будут отображаться на экране.
Вторая версия ожидает и читает n расширенных символов из файла или устройства. Положение файла обновляется.
Примечание: FreeBASIC в настоящее время не поддерживает чтение двухбайтовых знаков из консоли.
Синтаксис
Declare Function WInput( ByVal num As Integer ) As WString
Declare Function WInput( ByVal num As Integer, ByVal filenum As Integer = 0 ) As WString
Использование
result = WInput( num [, [#]filenum } )
Параметры
num
Число символов для чтения.
filenumФайловый номер связанного файла или устройства.
Возвращаемое значение
Описание
Считывает указанное количество двухбайтовых знаков из консоли или связанного файла/устройства под номером filenum.
Первая версия ожидает и читает n расширенных символов из буфера клавиатуры. Дополнительные клавиши не читает. Символы не будут отображаться на экране.
Вторая версия ожидает и читает n расширенных символов из файла или устройства. Положение файла обновляется.
Примечание: FreeBASIC в настоящее время не поддерживает чтение двухбайтовых знаков из консоли.
Пример
Dim char As WString * 2
Dim filename As String, enc As String
Dim f As Integer
Line Input "Please enter a file name: ", filename
Line Input "Please enter an encoding type (optional): ", enc
If enc = "" Then enc = "ascii"
f = FreeFile
If Open(filename For Input Encoding enc As #f) = 0 Then
Print "Press space to read a character from the file, or escape to exit."
Do
Select Case Input(1)
Case " " 'Space (пробел)
If EOF(f) Then
Print "You have reached the end of the file."
Exit Do
End If
char = WInput(1, f)
Print char & " (char no " & Asc(char) & ")"
Case Chr(27) 'Escape
Exit Do
End Select
Loop
Close #f
Else
Print "There was an error opening the file."
End If
Dim filename As String, enc As String
Dim f As Integer
Line Input "Please enter a file name: ", filename
Line Input "Please enter an encoding type (optional): ", enc
If enc = "" Then enc = "ascii"
f = FreeFile
If Open(filename For Input Encoding enc As #f) = 0 Then
Print "Press space to read a character from the file, or escape to exit."
Do
Select Case Input(1)
Case " " 'Space (пробел)
If EOF(f) Then
Print "You have reached the end of the file."
Exit Do
End If
char = WInput(1, f)
Print char & " (char no " & Asc(char) & ")"
Case Chr(27) 'Escape
Exit Do
End Select
Loop
Close #f
Else
Print "There was an error opening the file."
End If
Различия диалектов
- Не доступен в диалекте -lang qb.
Отличие от QB
- QB не поддерживает Юникод
См. также