Val编程中，对于汉字的读取不是很友好，利用fileget直接读取记事本产生的文件字符串会导致乱码的产生。因为Val只支持使用utf-8进行编码，因此读取的文本需要进行utf-8格式转换。
在GBK中，汉字占两个字节。并且每个字节都大于128.可以通过直接读取位来进行转换来读取汉字。通过读取的两个数字来获得汉字的ASCII码。
而在utf-8中具有自己的编码方式。模拟器中读取的是用GBK编码，而显示的是UTF-8.
utf-8格式说明：
这是为传输而设计的编码，其系列还有UTF-7和UTF-16
其中UTF-16和Unicode编码大致一样, UTF-8就是以8位为单元对Unicode进行编码。从Unicode到UTF-8的编码方式如下：
Unicode编码(16进制) UTF-8 字节流(二进制)
0000 - 007F 0xxxxxxx
0080 - 07FF 110xxxxx 10xxxxxx
0800 - FFFF 1110xxxx 10xxxxxx 10xxxxxx
例如“汉”字的Unicode编码是6C49。6C49在0800-FFFF之间，所以肯定要用3字节模板了：1110xxxx 10xxxxxx 10xxxxxx。将6C49写成二进制是：0110 110001 001001， 用这个比特流依次代替模板中的x，得到：11100110 10110001 10001001，即E6 B1 89。
推荐使用UltraEdit进行编辑。
通过读取汉字文本实现效果：
代码：
begin
//屏幕预处理
cls()
userPage()
setTextMode(0)
//关闭所有文件
$fileClose(0)
$fileClose(1)
$fileClose(2)
$fileClose(3)
$fileClose(4)
$fileClose(5)
$fileClose(6)
$fileClose(7)
$fileClose(8)
$fileClose(9)
//检查文件是否存在
if !$fileExists("Disk://Text.txt")
popUpMsg("文件不存在!")
return
endIf
//打开文件
nFileID=$fileOpen("Disk://Text.txt","r")
if nFileID<0 or nFileID>9
popUpMsg("文件打开错误!")
return
endIf
//读取文件
resize(sData,1,1)
while $fileGet(nFileID,l_sBuff,1)==1
if l_sBuff!=""
sData[size(sData)-1]=l_sBuff
append(sData)
endIf
endWhile
//去掉最后一行空白
resize(sData,1,size(sData)-1)
// 关闭文件
$fileClose(0)
$fileClose(1)
$fileClose(2)
$fileClose(3)
$fileClose(4)
$fileClose(5)
$fileClose(6)
$fileClose(7)
$fileClose(8)
$fileClose(9)
//显示文件
title("诗歌鉴赏")
//诗歌名
for l_nIndex=0 to 1
gotoxy((39-getDisplayLen(sData[l_nIndex]))/2,l_nIndex)
put(sData[l_nIndex])
endFor
//轮流显示
while true
for l_nIndex=0 to 9
gotoxy(0,l_nIndex+3)
l_nNum=l_nNum+1
if l_nNum==size(sData)
l_nNum=2
endIf
l_nNum=max(2,l_nNum)
put(left(sData[l_nNum]+" ",35))
endFor
delay(0.4)
endWhile
end