十年网站开发经验 + 多家企业客户 + 靠谱的建站团队
量身定制 + 运营维护+专业推广+无忧售后,网站问题一站解决
一、二进制文件读写
创新互联公司是专业的托克逊网站建设公司,托克逊接单;提供成都网站设计、成都做网站,网页设计,网站设计,建网站,PHP网站建设等专业做网站服务;采用PHP框架,可快速的进行托克逊网站开发网页制作和功能扩展;专业做搜索引擎喜爱的网站,专业的做网站团队,希望更多企业前来合作!
1、写二进制数据到指定目录
==将barray字节数组中的数据创建在strFilename目录文件下,存储格式为二进制,False表示不添加,直接覆盖创建。
2、从指定路径下读取二进制数据到数组
==将目录中的文件读取到barry字节数组中,即读取二进制文件。
二、字符文件的读写
1、 将txtFile控件中的字符写到srtFileName指定目录,以创建方式。
2、从srtFileName目录中的文件读取到txtFile控件
Dim Adoact As New ADODB Recordset ACCESS 数据库的ST表
Dim i As Integer
AdoRst Open ST DRIVER={MySQL ODBC Driver};SERVER= ;DATABASE=mydb;;USER=root;PASSWORD=********;OPTION= ; adOpenStatic adLockOptimistic
Adoact Open st Provider=Microsoft Jet OLEDB ;Data Source=C:ks mdb;Persist Security Info=False
Dim tt() As Byte
Dim ss() As Byte
tt = adoact Fields( ) Value
ss = adoact Fields( ) Value
AdoRst AddNew
AdoRst Fields( ) Value = i
AdoRst Fields( ) Value = tt
AdoRst Fields( ) Value = ss
AdoRst Update
文本方式查看只有几个字符
进制方式查看
lishixinzhi/Article/program/net/201311/13595
.NET 程序写成你这样也算厉害了,好好看看下面的代码
Sub Main()
Console.WriteLine("请输入一个二进制数")
Console.WriteLine(bin2int(Console.ReadLine()))
Console.ReadKey()
End Sub
Function bin2int(ByVal bin As String) As Integer
Dim i As Long
For i = 1 To bin.Length
bin2int = bin2int * 2 + Val(Mid(bin, i, 1))
Next i
End Function
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim MyStream As New System.IO.MemoryStream
Me.PictureBox1.Image.Save(MyStream, System.Drawing.Imaging.ImageFormat.Jpeg)
Dim MyBytes(MyStream.Length) As Byte
MyStream.Read(MyBytes, 0, MyStream.Length)
MyStream.Close()
Dim strText As String
strText = BitConverter.ToString(MyBytes)
Me.TextBox1.Text = strText
End Sub
Replace(Space((8 - Len(Convert.ToString(12, 2)))), " ", "0") + Convert.ToString(12, 2)
上面的代码是把255以内的整数转化为8位2进制 (本例是12转化为2进制,修改12为你要转化的数即可)
首先引入System.IO命名空间
Imports System.IO
然后使用文件流来读入数组:
Dim bytes() As Byte
Using fs As New FileStream(文件路径,FileMode.Open)
ReDim bytes(fs.Length-1)
fs.Read(bytes,0,fs.Length)
fs.Close()
End Using
这样bytes就是整个文件的所有字节了
从字节生成Image:
Dim img As Image = Image.FromStream(New MemoryStream(bytes))
img就是图片了