- 博客(4)
- 问答 (2)
- 收藏
- 关注
原创 vbs 通讯录
Dim NewName '名字Dim NewNum '号码Dim FindIn '输入号码Dim strLine,strLineCase,strNewFile Dim Ch '选择操作Set fso = CreateObject("Scripting.FileSystemObject")Sub LoadFile If Not fso.FileExists("d:\Telephone.txt")...
2018-04-17 10:35:41 243
原创 定义一个函数,实现从一堆数据中找出指定数据的个数。
'str1为一堆数据,str2为指定数据Function Test(ByVal str1,ByVal str2) Dim lim '比较次数 Dim number '相同数据个数 l1=len(str1) l2=len(str2) lim=l1-l2+1 For i = 1 To lim '循环str1 str=Mid(str1,i,l2) '从str1中返回指定数目...
2018-04-13 13:30:33 3507
原创 vbs 字符串
用vbs写一个方法 函数名和参数我已经定掉了 mode = 1 左对齐 mode = 2 右对齐 strRetLen 函数返回的string长度 targetStr 要转换的目标string 要实现的功能是对于我要转换的string,根据左对齐或者右对齐来补足space返回 比如 StrConvert(“123”,8,1) 则返回「123 」 StrConvert(“123”,8,2) 则返回「 ...
2018-04-11 14:57:53 1052
原创 vbs dictionary excel
读取连个e3文件 输出格式 blockname 1.e3s 2.e3saaa Y Nbbb N Y ccc N NDim sdict 'As Disctionary Dim i 'As IntegerDim keys 'As StringCall GetInfo(sdict) Set ExcelApp...
2018-04-10 15:14:57 205
空空如也
vbs显示Set str = file.readall 会报错 缺少对象800a01a8
2018-03-31
vbs读取两个文本文件之后,比较文本中的内容,相同的输出Y
2018-03-30
TA创建的收藏夹 TA关注的收藏夹
TA关注的人