社区
VB基础类
帖子详情
on error resume next是什么意思?还有strConv(InputB(LOF(1),1),vbUnicode)是什么意思?
allan80
2004-12-20 04:37:46
如题
...全文
391
6
打赏
收藏
on error resume next是什么意思?还有strConv(InputB(LOF(1),1),vbUnicode)是什么意思?
如题
复制链接
扫一扫
分享
转发到动态
举报
写回复
配置赞助广告
用AI写文章
6 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
pikachu8guan
2004-12-21
打赏
举报
回复
On Error Resume Next
说明当一个运行时错误发生时,控件转到紧接着发生错误的语句之后的语句,并在此继续运行。访问对象时要使用这种形式而不使用 On Error GoTo。
StrConv 函数
返回按指定类型转换的 Variant (String)。
vbUnicode 64 根据系统的缺省码页将字符串转成 Unicode。
northwolves
2004-12-20
打赏
举报
回复
x=strConv(InputB(LOF(1),1),vbUnicode)
直接将文件1(可以中英文混合)的内容读到字符串X 中
laviewpbt
2004-12-20
打赏
举报
回复
on error resume next
忽略错误。
zichen66
2004-12-20
打赏
举报
回复
On Error Resume Next
的意思是在此條語句以下的語句如果出錯了不管它,程序繼續執行
StrConverV()返回按指定类型转换的變量
可選參數列表
vbUpperCase 1 将字符串文字转成大写。
vbLowerCase 2 将字符串文字转成小写。
vbProperCase 3 将字符串中每个字的开头字母转成大写。
vbWide* 4* 将字符串中单字节字符转成双字节字符。
vbNarrow* 8* 将字符串中双字节字符转成单字节字符。
vbKatakana** 16** 将字符串中平假名字符转成片假名字符。
vbHiragana** 32** 将字符串中片假名字符转成平假名字符。
vbUnicode 64 根据系统的缺省码页将字符串转成 Unicode。
vbFromUnicode 128 将字符串由 Unicode 转成系统的缺省码页。
這個一般查MSDN就可以知道了
tztz520
2004-12-20
打赏
举报
回复
on error resume next就是忽略错误继续执行下面的代码
strConv(InputB(LOF(1),1),vbUnicode)'这个是将读出来的信息转换
lxjlz
2004-12-20
打赏
举报
回复
on error resume next是什么意思?
有錯誤發生時,不產生錯誤,繼續執行下一行
strConv(InputB(LOF(1),1),vbUnicode)
msdn中有 strconv的詳細說明,
【一步一步学习
VB
A】Excel
VB
A 读取txt文件并写入Excel单元格
我们首先在Excel文件所在目录创建一个文件a.txt,文件内容如下: 1111 222 222 333 333 444 接着我们进行文件的读取,并且写入到Excel中,代码如下: Sub bb() Dim a, k%, i% Open "a.txt" For
Input
As #1 a = Split(
StrConv
(
Input
B(
LOF
(1), 1),
vb
Unicode
),
vb
Cr
VB
中读取CRLF和LF
文本文件读取处理 Open filePath For
Input
As #1 contentArr = Split(
StrConv
(
Input
B(
LOF
(1), 1),
vb
Unicode
),
vb
CrLf) Close #1 读取LF换行文本,只需把
vb
CrLf换成
vb
Lf
【
VB
A】获取多文本文件总条数及去重后数量
以下文本为存放IP文件,每行一条,代码可检查IP总数及是否有重复。“合并后总数”是否等于“去重后总数” Sub CheckIPNum() On
Error
Re
sum
e Next Dim arr Dim j As Integer, all_num As Integer all_num = 0 Set dic = CreateObject("scripting.dictionary") ...
VB
读写TXT文本文件函数
以下两个函数分别读取TXT文本文件与写入文件 Private Function GetTXT(Path As String) '读取文本 Open Path For
Input
As #1 GetTXT =
StrConv
(
Input
B(
LOF
(1), 1),
vb
Unicode
) Close #1End Function Private Sub SetTXT(Strl As...
文件格式转换
VB
A
在工作过程中有时会需要对数据进行格式转换,如TXT,xlsx,xls之间的相互转换,有很多方法来实现,这里主要记录利用Excel中
VB
A。 (1)在需要转换数据的文件夹下新建Excel,打开
VB
A; (2)将代码复制过去,执行即可。 1.txt2xlsx Sub Convert2Xlsx() On
Error
Re
sum
e Next Application.ScreenUpdating = False Dim fPath$, mPath$, WB As Workbook, arr, s mPath = Th
VB基础类
7,763
社区成员
197,609
社区内容
发帖
与我相关
我的任务
VB基础类
VB 基础类
复制链接
扫一扫
分享
社区描述
VB 基础类
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章