二进制连接函数VBSCRIPT

最新推荐文章于 2019-02-19 14:02:38 发布
最新推荐文章于 2019-02-19 14:02:38 发布
阅读量68 收藏
点赞数
文章标签： VBScript C C++ C#
博客展示了一段VBScript代码，定义了一个名为ConvertAsc的函数，用于将输入字符串进行字符编码转换。代码通过遍历字符串中的每个字符，根据字符的ASCII值进行不同处理，最后将转换后的结果输出，还给出了调用示例。

摘要生成于 C知道 ，由 DeepSeek-R1 满血版支持， 前往体验 >

Public Function ConvertAsc(strIn)
Dim i
ConvertAsc = ""
For i=1 to Len(strIn)
Dim c: c = Asc(Mid(strIn, i, 1))
If Abs(c)<128 Then
ConvertAsc = ConvertAsc & ChrB(c)
Else
Dim h: h = Hex(c)
ConvertAsc = ConvertAsc & ChrB(Int("&H" & Mid(h, 1, 2)))
ConvertAsc = ConvertAsc & ChrB(Int("&H" & Mid(h, 3, 2)))
End If
Next
End Function

Dim a: a = ConvertAsc("hello world!")
Dim b: b = ConvertAsc("世界你好！")

Response.BinaryWrite a + b

iteye_11002
关注
用VBS读写二进制文件的另一种方法分享
09-05
虽然我没有把那个程序解密出来（如果哪位真正的高手会，麻烦指点一下），但是从中领悟出了用VBS读写二进制文件的另一种方法，即Microsoft.XMLDOM+ADODB.Stream。这个方法的效率比原来那个高得多，而且似乎没有文件大小限制
1680 连接连续二进制数字（位运算、分析）
二哈
12-27 733
输入：n = 12 输出：505379714 解释：连接结果为 "1101110010111011110001001101010111100" 。 对应的十进制数字为 118505380540 。 对 109 + 7 取余后，结果为 505379714 。1. 问题描述： 给你一个整数 n ，请你将 1 到 n 的二进制表示连接起来，并返回连接结果对应的十进制数字对 10 ^ 9 + 7 取余的结果。 示例 1： 输入：n = 1 输出：1 解释：二进制的 "1" 对应着十进制的 1 示例 2： .
vb6关于VB以二进制（binary）方式读取文本内容
roy9494的专栏
11-03 8236
http://hi.baidu.com/xa87/blog/item/5fc9df0abe10e91d94ca6b3a.html Dim Data() As Byte '原结果，字节型 Dim i As Long '循环变量 Dim a As String '转换后的结果 D
Access数据库里二进制数据读取，并显示为图片.rar
09-24
总结来说，无论是使用VBA还是ASP，读取Access数据库中的二进制图片数据并进行显示，都需要连接数据库、获取二进制数据、将其转化为可显示的形式。对于桌面应用，通常是VBA和PictureBox控件；而对于Web应用，可能是...
JS幻想 读取二进制文件第1/2页
10-30
在早期的浏览器中，VBScript结合IE的HTTP组件被用来读取二进制数据，但这一方案存在局限性，仅适用于IE浏览器。对于其他浏览器，这种方案并不适用。因此，对于二进制数据的读取，通常不会使用客户端脚本语言，而是...
asp实现二进制字符串转换为Unicode字符串
10-30
通过调用`sTb`函数并传入二进制字符串参数，你就可以得到对应的Unicode字符串。需要注意的是，转换过程中字符集的选择非常重要，选择错误的字符集可能导致乱码。如果不确定输入字符串的编码，可能需要进行额外的检测...
VB 从二进制流中恢复汉字信息
03-06
例如，以下函数可以用于将二进制字符串转换为可读的文本： ```vb Function getString(StringBin) Dim intCount intCount = 1 Do While intCount (StringBin) If AscB(MidB(StringBin, intCount, 1)) 单字节...
二进制数的表示
qq_34242820的博客
04-28 458
吐槽一下，今天网真慢，等了半天才进去 二进制的表示，先举个实例吧 一、23用二进制表示        Private Sub Command1_Click()         Dim n As Byte         n = 23        Const er As Byte = 2        Dim shang As Byte        Dim yushu(1 T
[VBS]转换二进制数据为字符串常用办法.doc
07-12
在VBS中用三种方法，读取和写入二进制文件。
VBScript基础
森之缘的博客
02-19 942
VBScript基础： 1、声明变量：    a:声明变量的一种方式是使用Dim语句，Public语句和Private语句在脚本中显式声明变量。例如：Dim name    b:声明多个变量时，使用逗号分隔变量。例如：Dim Top,Bottom,left,Right    c:直接在脚本中使用变量名，简称隐式声明变量（个人建议不要这样做，有时会因变量名拼写错误导致在运行脚本时出现以外结果）。最好...
Asp的总结
weixin_33724570的博客
09-21 133
了解ASP：Microsoft Active Server Pages 即我们所称的 ASP ，其实是一套微软开发的服务器端脚本环境，ASP 内含于 IIS ///////////////////////////////////////////////////////////////////////////VBScript同JavaScript有什么区别？变量的...
23的二进制数
zhengqian680的博客
04-28 1713
Private Sub Command1_Click() Me.Font.Size = 30 Dim n As Byte n = 23Private Sub Command1_Click() Me.Font.Size = 30 Dim n As Byte n = 23 Const er As Byte = 2 Dim shang As Byte Dim yushu(1 To
使用ADODB.Stream对象写二进制文件
04-19 1913
 Function SaveBinaryData()Function SaveBinaryData(FileName, ByteArray)Const adTypeBinary = 1Const adSaveCreateOverWrite = 2Create Stream objectDim BinaryStreamSet BinaryStream = CreateObject("ADO
15电气李书鹏4月28日Vb作业（1）
Lsp581的博客
04-28 555
将一个数转化为二进制数 例如将230转换为二进制 建立一个command 在command中输入以下内容 Private Sub Command1_Click()     Me.Font.Size = 60     Print erjinzhi(230) End Sub Private Function erjinzhi(m As Byte) As String     Dim
将23转化为二进制数
zxyssy1314的博客
04-28 2474
Private Sub Command1_Click()    Dim n As Byte    n = 23    Const er As Byte = 2        Dim shang As Byte    Dim yushu(1 To 5) As Byte    Dim i As Byte    i = 5    shang = n \ er    yushu(i)
vbscript脚本用二进制方式读写文件
zmxj的专栏
02-27 7710
  在项目中遇到这样的问题，程序中需要将用 Adodb.Stream生成的utf-8格式的csv文件导入mysql数据库中，当使用load data infile命令导入数据库以后，导入的表中的第一行第一列的数据总是有一个问号，而导入前用文本编辑器打开看不出有什么问题，经过调查最后发现文件的开始处有三个字节不可见的字符，用ultraEdit的16进制编辑方式可以看到是EF BB BF三个字节（注意
VB语言提取二进制文件中图片资源的方法教程
- 使用文件I/O函数（如`Open`和`BinaryRead`）打开二进制文件并读取内容。 - 解析二进制文件内容，找到图片数据的起始位置和长度。这通常需要对二进制文件格式有深入了解。 - 根据解析出的位置和长度，使用文件操作...
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值