# NSB:为何有些中文字无法储存 ?

Posted by sam on August 16, 1999 at 07:06:12:

Hi,你好
我写一个程式，各使用 Print 与 MsgBox，
为何用 Print 显示皆正常，可是 MsgBos
显示时却漏了一些字。
Print 显示 :
秋季果实成熟时采收
炒至焦黄
用时捣碎
春、秋二季采挖
以秋采者为佳
MsgBox 显示 :
秋季果实/炒至/用时/春、秋

请问为什么会这样呢？不是说 NS Basic
使用中文都没问题吗？那又该如何修改
呢？谢谢！
以下是程式的内容：
addObject "filesystem"
addObject "file"
addObject "commandButton","cmdWrite",5,85,70,20
cmdWrite.text="WriteFields"
on error resume next
Dim myArray
ReDim myArray(5)
myArray(1) = "秋季果实成熟时采收"
myArray(2) = "炒至焦黄"
myArray(3) = "用时捣碎"
myArray(4) = "春、秋二季采挖"
myArray(5) = "以秋采者为佳"
print myArray(1)
print myArray(2)
print myArray(3)
print myArray(4)
print myArray(5)
Sub cmdWrite_Click()
WriteUsingControl
ReadUsingControl
killfocus
End Sub
Sub cmdWrite_Click()
WriteUsingControl
ReadUsingControl
killfocus
End Sub
Sub WriteUsingControl()
file.Open "\My Documents\Temp\Test.txt", 2 'fsModeOutput
file.WriteFields myArray
file.Close
End Sub
Sub ReadUsingControl()
Dim myArray, msgString, i
file.Open "\My Documents\Temp\Test.txt", 1 'fsModeInput
myArray = file.InputFields(5)
msgString = myArray(1)
For i = 2 To UBound(myArray, 1)
msgString = msgString & " / " & myArray(i)
Next
msgbox msgString,0,"Contents of Test.txt"
file.Close
End Sub

Follow Ups:

- File object 的 bug 小吴 08:10:07 8/17/99 (0)
- Re: NSB:为何有些中文字无法储存 ? 小琳 19:59:06 8/16/99 (1)
  - Re: NSB:为何有些中文字无法储存 ? 中药 Sam 07:53:04 8/17/99 (0)