查人人中国名人网2018北京春季房展会:vb 将配置信息追加到exe尾部的问题
来源：百度文库 编辑：查人人中国名人网 时间：2024/04/28 04:20:15
Dim bInfo As Byte
Dim bFile() As Byte
Dim iInfoLen As Integer
Dim i As Integer, lFile As Long
Open cdLocation.FileName For Binary Access Write As #1
For lFile = 0 To FILE_SIZE - 1
Put #1, , bFile(lFile)
Next lFile
For i = 1 To iInfoLen '读出配置信息并追加
bInfo = Asc(Mid(txtInfo.Text, i, 1))
Put #1, , bInfo
Next i
Close #1
txtInfo.Text为数字或英文的时候是这样的，那要是中文的汉字应该怎么样处理的？
谢谢逍遥忘我和XnnYygn两位！
但是能给出代码吗？
我试过了很多次，
都是提示溢出错误！
Dim bFile() As Byte
Dim iInfoLen As Integer
Dim i As Integer, lFile As Long
Open cdLocation.FileName For Binary Access Write As #1
For lFile = 0 To FILE_SIZE - 1
Put #1, , bFile(lFile)
Next lFile
For i = 1 To iInfoLen '读出配置信息并追加
bInfo = Asc(Mid(txtInfo.Text, i, 1))
Put #1, , bInfo
Next i
Close #1
txtInfo.Text为数字或英文的时候是这样的，那要是中文的汉字应该怎么样处理的？
谢谢逍遥忘我和XnnYygn两位！
但是能给出代码吗？
我试过了很多次，
都是提示溢出错误！
不转换ASCII码直接写入应该可以!
需要记住文件的大小,然后用SEEK到指定的地方,这样后面部分保存配置!
中文有对应的UNICODE码,用ASCB,ASCW,ASC函数可以得到