一个用notes读取文件到rtf域的问题
我想将本地一个文件读到notes文档的rtf域中，因为每次只能读32k文件的限制，所以做一个循环，循环读取，但现在有一个问题，就是在我每次读取文件指针所在位置如果是一个汉字，因为占两个字节，所在位置是这两个字节中间位置就会出错：input past end of file.
请问各位大侠，我怎样才能处理这个问题？
或者打开文件方式中有无可自动判断文字，就是将汉字认为一个字符的方式？
我的代码如下：
Dim workspace As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Set uidoc = workspace.CurrentDocument
Call uidoc.GotoField( "Body_zw" )
Dim FilePath As String '用来确定文件的位置
Dim n As Integer
Dim Remain As Integer '获得文件最后的字节数
Dim FileNum As Integer '用来在打开文件时分配一个编号
Dim SecLen As Integer '用来确定一个域中所放的字节数
SecLen=30000
FilePath="c:\39C4BA35563334C148256EE00034F861.htm"
FileNum=Freefile()
Open FilePath For Input As FileNum
n=Int(Lof(FileNum)/SecLen)
Remain=Lof(FileNum) Mod (SecLen)
Dim FistStrFile As String
For i=1 To n
aaa=Inputbp$(SecLen,FileNum)
Call uidoc.InsertText(aaa)
Next
Call uidoc.InsertText(Inputbp$(Remain-zzz,FileNum))
Close FileNum
问题点数：0、回复次数：1Top
1 楼000034（瀑布）回复于 2005-03-17 09:55:24 得分 0
自信Top
