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 宽字符。文件位置已更新。
Note: FreeBASIC does not currently support reading wide-characters from the console.
语法
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 宽字符。文件位置已更新。
Note: FreeBASIC does not currently support reading wide-characters from the console.
例子
Dim char As WString * 2
Dim filename As String, enc As String
Dim f As Integer
Line Input "请输入文件名：", filename
Line Input "请输入编码类型（可选）：", enc
If enc = "" Then enc = "ASCII"
f = FreeFile
If Open(filename For Input Encoding enc As #f) = 0 Then
Print "按空格从文件中读取一个字符，或者退出退出。"
Do
Select Case Input(1)
Case "" '空间
If EOF(f) Then
Print "您已到达文件的末尾。"
Exit Do
End If
char = WInput(1, f)
Print char & "（char no" & Asc(char) & ")"
Case Chr(27) '逃逸
Exit Do
End Select
Loop
Close #f
Else
Print "打开文件时出错。"
End If
Dim filename As String, enc As String
Dim f As Integer
Line Input "请输入文件名：", filename
Line Input "请输入编码类型（可选）：", enc
If enc = "" Then enc = "ASCII"
f = FreeFile
If Open(filename For Input Encoding enc As #f) = 0 Then
Print "按空格从文件中读取一个字符，或者退出退出。"
Do
Select Case Input(1)
Case "" '空间
If EOF(f) Then
Print "您已到达文件的末尾。"
Exit Do
End If
char = WInput(1, f)
Print char & "（char no" & Asc(char) & ")"
Case Chr(27) '逃逸
Exit Do
End Select
Loop
Close #f
Else
Print "打开文件时出错。"
End If
方言差异
- 在-lang qb 方言中不可用。
与QB差别
- QB不支持Unicode
参考