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

Posted by 小琳 on August 16, 1999 at 19:59:06:

In Reply to: 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
:
:

:::NS Basic???请问是怎样的Basic，可否大略叙述一下!!!

Follow Ups:

- Re: NSB:为何有些中文字无法储存 ? 中药 Sam 07:53:04 8/17/99 (0)