VB基础类
关于put写文件的问题，焦急等待
墨衍会员 · AI 创作全网分发 墨衍智能分发 通过墨衍一键同步至各平台 可同步平台 CSDN微信公众号微博知乎掘金百家号博客园抖音小红书 你的文章也可以这样分发 墨衍会员 ¥399起/年，写一次发全网
我也要 关注 + 加入社区以下代码在写半角文字入文件时正常，但是在写全角文字时候不正常，会报告纪录长度不一致这样的错误，不知道什么原因，能否帮我更正。
Dim strS As String * 10
strS = "wo"
Dim filename As String
Dim filenum As Integer
filename = "C:\test.txt"
filenum = FreeFile
Open filename For Random As filenum Len = 10
Dim j As Integer
For j = 1 To 3
Mid(strS, 9, 2) = (Chr(13) & Chr(10))
Put #filenum, j, strS
Next j
Close #filenum
如果将strS的值改成“我”，就会出错
很着急修改，分不够可以再加，只要解决问题
我估计是因为全角文字和半角文字的原因，但是不知道怎么解决才好
Dim strS As String * 10
strS = "wo"
Dim filename As String
Dim filenum As Integer
filename = "C:\test.txt"
filenum = FreeFile
Open filename For Random As filenum Len = 10
Dim j As Integer
For j = 1 To 3
Mid(strS, 9, 2) = (Chr(13) & Chr(10))
Put #filenum, j, strS
Next j
Close #filenum
如果将strS的值改成“我”，就会出错
很着急修改，分不够可以再加，只要解决问题
我估计是因为全角文字和半角文字的原因，但是不知道怎么解决才好
...全文
