VB有字节流的用法。 以下代码是将字符串转换为字节流及反转换的代码: Option Explicit Dim strData As String Dim yTemp() As BytePrivate Sub Command2_Click() strData = StrConv(yTemp, vbUnicode) Text2 = strData End SubPrivate Sub Form_Load() Text1 = "" Text2 = "" End SubPrivate Sub Command1_Click() Dim sTemp As String 'sTemp = "给电子工程师的忠告!!![1]好好规划自己的路,不要跟着感觉走!根据个人的理想决策安排,绝大部分人并不指望成为什么院士或教授,而是希望活得滋润一些,爽一些。那么,就需要慎重安排自己的轨迹。从哪个行业入手,逐渐对该行业深入了解,不要频繁跳槽,特别是不要为了一点工资而转移阵地,从长远看,这点钱根本不算什么,当你对一个行业有那么几年的体会,以后钱根本不是问题。频繁地动荡不是上策,最后你对哪个行业都没有摸透,永远是新手![2]可以做技术,切不可沉湎于技术。千万不可一门心思钻研技术!给自己很大压力,如果你的心思全部放在这上面,那么注定你将成为孔乙己一类的人物!适可而止为之,因为技术只不过是你今后前途的支柱之一,而且还不是最大的支柱,除非你只愿意到老还是个工程师!" sTemp = "1234567890给电子工程师的忠告!" yTemp = StrConv(sTemp, vbFromUnicode) Text1 = sTemp Text3 = Len(sTemp) Text4 = UBound(yTemp) End Sub
二进制文件怎么能用文本流读取?你可以使用adodb的stream对象
<script>alert("test")</script>
open "c:\file.jpg" for binary as #1 get #1,bins '加载了二进制流 close #1
以下代码是将字符串转换为字节流及反转换的代码:
Option Explicit
Dim strData As String
Dim yTemp() As BytePrivate Sub Command2_Click()
strData = StrConv(yTemp, vbUnicode)
Text2 = strData
End SubPrivate Sub Form_Load()
Text1 = ""
Text2 = ""
End SubPrivate Sub Command1_Click()
Dim sTemp As String
'sTemp = "给电子工程师的忠告!!![1]好好规划自己的路,不要跟着感觉走!根据个人的理想决策安排,绝大部分人并不指望成为什么院士或教授,而是希望活得滋润一些,爽一些。那么,就需要慎重安排自己的轨迹。从哪个行业入手,逐渐对该行业深入了解,不要频繁跳槽,特别是不要为了一点工资而转移阵地,从长远看,这点钱根本不算什么,当你对一个行业有那么几年的体会,以后钱根本不是问题。频繁地动荡不是上策,最后你对哪个行业都没有摸透,永远是新手![2]可以做技术,切不可沉湎于技术。千万不可一门心思钻研技术!给自己很大压力,如果你的心思全部放在这上面,那么注定你将成为孔乙己一类的人物!适可而止为之,因为技术只不过是你今后前途的支柱之一,而且还不是最大的支柱,除非你只愿意到老还是个工程师!"
sTemp = "1234567890给电子工程师的忠告!"
yTemp = StrConv(sTemp, vbFromUnicode)
Text1 = sTemp
Text3 = Len(sTemp)
Text4 = UBound(yTemp)
End Sub
get #1,bins '加载了二进制流
close #1