Public Function chrConvert(strInput As String, Method As Integer) As String
' Method = 0 for Text to vbChr
' Method = 1 for Text to HTML
' Method = 2 for Text to Hex
' Method = 3 for vbChr to Text
' Method = 4 for HTML to Text
' Method = 5 for Hex to Text
If Method = 0 Or Method = 1 Or Method = 2 Then
chrConvert = ToChr(strInput, Method)
ElseIf Method = 3 Or Method = 4 Or Method = 5 Then
chrConvert = ToTxt(strInput, Method)
End If
End Function
Private Function ToChr(strInput As String, Method As Integer) As String
strTmp = ""
For L = 1 To Len(strInput)
A = Asc(Mid(strInput, L, 1))
If Method = 0 Then
strTmp = strTmp & " & Chr(" & A & ")"
ElseIf Method = 1 Then
strTmp = strTmp & "&#" & A & ";"
ElseIf Method = 2 Then
strTmp = strTmp & "%" & Hex(A)
End If
Next L
If Method = 0 Then strTmp = Right(strTmp, Len(strTmp) - 3)
ToChr = strTmp
End Function
Private Function ToTxt(strInput As String, Method As Integer) As String
strTmp = ""
Dim inChr() As String
Dim F As Integer, ForChr As Integer, tmpInput As String
If Method = 3 Then
strInput = Replace(strInput, ")", "")
strInput = Replace(strInput, " & ", "")
strInput = Replace(strInput, "Chr(", "")
ElseIf Method = 4 Then
strInput = Replace(strInput, "&#", "")
strInput = Replace(strInput, ";", "")
ElseIf Method = 5 Then
strInput = Replace(strInput, "%", "")
End If
inChr = Split(strInput, "")
For F = 1 To ChrNum(strInput)
inChr(F) = AddZeros(3 - Len(inChr(F))) & inChr(F)
tmpInput = tmpInput & inChr(F)
Next F
For L = 1 To Len(tmpInput)
A = Mid(tmpInput, L, 3)
If Method = 5 Then A = Val("&H" & A)
strTmp = strTmp & Chr(A)
L = L + 2
Next L
ToTxt = strTmp
End Function
Private Function ChrNum(strInput As String) As Integer
Dim lngLen As Long, lngFound As Long, lngEnd As Long
ChrNum = 0
lngLen& = Len(strInput$)
lngFound& = InStr(strInput$, "")
Do While lngFound& <> 0
ChrNum = ChrNum + 1
lngFound& = InStr(lngFound& + 1, strInput$, "")
Loop
End Function
Private Function AddZeros(Number As Integer) As String
Dim Z As Integer, tmpZeros As String
For Z = 1 To Number
tmpZeros = tmpZeros & "0"
Next Z
AddZeros = tmpZeros
End Function
分享到:
相关推荐
UCase 函数 返回的字符串已经被转换为大写字母。 Value 属性 返回在搜索字符串中已发现匹配的值或正文。 VarType 常数 定义变体子类型的常数列表。 VarType 函数 返回标识变体子类型的数值。 VBScript 常数 在 ...
UCase 函数 返回的字符串已经被转换为大写字母。 Value 属性 返回在搜索字符串中已发现匹配的值或正文。 VarType 常数 定义变体子类型的常数列表。 VarType 函数 返回标识变体子类型的数值。 VBScript 常数 在 ...
VB.net与C#中不支持类型(结构体)的某个变量同时是定长字符串与数组, 两者只能选其一。请自行计算出数组大小或用代码处理定长字符串的方式进行改写。 VB.net与C#中的类型(结构体)如果有数组那么这个类型不能声明...
在文本框中快速增加一串字符 81 , 81.txt 在文本框中实现由加减号输入数据 82 , 82.txt 在运行时维护DBGRID的栏位宽度 83 , 83.txt 怎样使用VB开发基于Sybase的软件 84 , 84.txt 怎样在运行时动态生成多个相同的控件...
4.1.4 字符数组和字符串处理 147 4.1.5 多维数组 150 4.2 间接数据存取 153 4.2.1 指针的概念 153 4.2.2 声明指针 154 4.2.3 使用指针 155 4.2.4 初始化指针 157 4.2.5 sizeof运算符 162 4.2.6 ...
browsefolders5.zip 浏览一个子目录(3KB) 61,easymail.zip 文件加密/解密的例子(5KB) 62,encstrings.zip 加密/解密字符串的例子(2KB) 63,keybinf.zip 键盘信息报告例子(2KB) 64,reginq....
rotfont.zip 用VB实现字体的旋转 622,o033_998162026.zip 制作安装程序常用的模块(2KB) 623,o032_play024.zip 对电子爱好者是一个不错的选择(7KB) 624,o031_Play39.zip 时间、空间大小等数据向...
rotfont.zip 用VB实现字体的旋转 622,o033_998162026.zip 制作安装程序常用的模块(2KB) 623,o032_play024.zip 对电子爱好者是一个不错的选择(7KB) 624,o031_Play39.zip 时间、空间大小等数据向...
' 采用了将数字型字符串类型转换为数字之后再比较的方法,结果更为准确。 ' 3、其他算法和运算速度: ' 编制过程中,试验过使用 正则+逻辑分支+表达式引用 的方法, ' 可以实现几乎等同于SQL查询语句的复杂功能,...
rotfont.zip 用VB实现字体的旋转 622,o033_998162026.zip 制作安装程序常用的模块(2KB) 623,o032_play024.zip 对电子爱好者是一个不错的选择(7KB) 624,o031_Play39.zip 时间、空间大小等数据向...
rotfont.zip 用VB实现字体的旋转 622,o033_998162026.zip 制作安装程序常用的模块(2KB) 623,o032_play024.zip 对电子爱好者是一个不错的选择(7KB) 624,o031_Play39.zip 时间、空间大小等数据向...
│ 得到一个字符串在另一个字符串中出现的次数.sql │ 数字转换成十六进制.sql │ 比较第一与第二个字符串,是否有连续的5个字符相同.sql │ 生成查询的模糊匹配字符串.sql │ 简繁转换.sql │ 统计一个表中某个字符...
8.2.1 日期时间函数 8.2.2 CONVERT函数转换日期、时间 8.2.3 数据运算函数 8.3 字符串函数 8.3.1 字符串处理函数介绍 8.3.2 字符转换函数 8.3.3 去字符串空格函数 8.3.4 取字符串长度的函数 8.3.5 查询包含部分字符...
-格式化.sql │ 得到一个字符串在另一个字符串中出现的次数.sql │ 数字转换成十六进制.sql │ 比较第一与第二个字符串,是否有连续的5个字符相同.sql │ 生成查询的模糊匹配字符串.sql │ 简繁...
一组 正则表达式 静态构造函数 忽略大小写Replace效率瓶颈IndexOf 随机排列算法 理解C#中的委托[翻译] 利用委托机制处理.NET中的异常 与正则表达式相关的几个小工具 你真的了解.NET中的String吗? .NET中的方法及其...
11、增加了将报表文件(you结尾的文件)和报表模板生成的报表(用EasyReport组件的GetReportString方法得到的字符串)添加到VB2008Print组件的当前打印作业中的方法(详见AddReport和AddReportByString方法) ...
12.3.1. 字符串比较函数 12.4. 数值函数 12.4.1. 算术操作符 12.4.2. 数学函数 12.5. 日期和时间函数 12.6. MySQL使用什么日历? 12.7. 全文搜索功能 12.7.1. 布尔全文搜索 12.7.2. 全文搜索带查询扩展 12.7.3. 全文...