【VB6至VB.Net的进步】字符串转UTF-8的URL
2020-02-17 09:15
309 查看
'VB.Net代码继承VB6写法 Function StringToURLUTF8(ByVal Target As String) As String If Target = "" Then Return "" Dim Resault As String = "" For i = 1 To Target.Length Dim Text As String = Mid(Target, i, 1) Dim Asc As Integer = AscW(Text) If Asc < 0 Then Asc += 65536 Dim Resault_Part As String = "" If (Asc And &HFF80) = 0 Then Resault_Part = Text Else If (Asc And &HF000) = 0 Then Resault_Part = "%" & Hex((Asc \ 64) Or &HC0) & Hex(Asc And &H3F Or &H80) Else Resault_Part = "%" & Hex((Asc \ 4096) Or &HE0) & "%" & Hex((Asc \ 64) And &H3F Or &H80) & "%" & Hex(Asc And &H3F Or &H80) End If End If Resault &= Resault_Part Next i Return Resault End Function
'VB.Net代码.Net写法 Function StringToURLUTF8(ByVal Target As String) As String If Target = "" Then Return "" Dim Resault As String = "" For Each b As Byte In Encoding.UTF8.GetBytes(Target) Resault &= "%" & b.ToString("X") Next Return Resault End Function
- 点赞 1
- 收藏
- 分享
- 文章举报
相关文章推荐
- Excel vba获取文件夹内文件名
- VB6上创建金蝶K/3或KIS旗舰版插件
- vbs脚本大全
- vbs脚本大全2
- VBox关闭dhcp
- [转载] VBScript 编程参考
- VBS脚本
- VB网页外链接抓取分析软件UrlX
- Visual Basic编程基础
- VB6.0萌新告急!!!
- VBA Code 创建与删除工具栏 -- 测试博客
- vb.net PictureBox包含的图片的大小
- 简易vbs脚本实现在浏览器自动刷新网页。
- vbscript错误代码及对应解释大全/VBScript 语法错误
- VB.net与C#转换网址
- vb,wps,excel 提取括号的数字
- vb 案例学习
- vba,自定义公式,农历互转公历,excel ,wps
- vba控制图表,excel图表,一键完成
- vba 两个表 信息合体一个表格