vb.netput的简单介绍

关于VB的GET，PUT函数问题

第一个问题，读写文件的乱码问题要靠自己去解决了，因为别人不知道你的很多情况，

成都创新互联是一家集网站建设,嘉兴企业网站建设,嘉兴品牌网站建设,网站定制,嘉兴网站建设报价,网络营销,网络优化,嘉兴网站推广为一体的创新建站企业，帮助传统企业提升企业形象加强企业竞争力。可充分满足这一群体相比中小企业更为丰富、高端、多元的互联网需求。同时我们时刻保持专业、时尚、前沿，时刻以成就客户成长自我，坚持不断学习、思考、沉淀、净化自己，让我们为更多的企业打造出实用型网站。

比如说：txt1 txt2是怎么来的，是自己用写字板之类的编辑器保存的吗？用的是什么编码？GBK/UTF16……有没有用BOMS？

但不管你用什么编码保存，都是文本了，txt1文本是“10011”，保存在文件里可是：

31 30 30 31 31 这样的东西

就不应该用binary方式打开，应该删除 for binary

第二个问题，用文本方式打开读到的是"10011"，你的本意是二进制数据，而不是1万零十一，要做一次转换，把二进制的字符串转成十进制的整型integer，在VB6里要自己整一个函数来作转换，VB.NET应该比较简单点。

先读取一个字符串，转换一下，才能放到integer类型的s1/s2中。

第三个问题，s3不应该是integer类型，integer类型是十进制的，就算前面的步骤对了也不会显示你想要的二进制字符串，s3应该是字符串类型。

两数相加的和是一个十进制数，要把它表现成二进制字符串，还得作一次转换，也要自己整一个函数作转换，要动点脑筋了，VB.NET应该比较简单点。

从这个问题，可以看出，当要用VB去解决一些问题的时候，就并不像平时教科书上的例子的那么简洁方便好用了，还不如直接用C来得干脆。

我不用Basic很多年~~~~

VB.NET使用fileput写入数据时,如何避免删除文件中已有的内容

用System.IO.File中的静态函数AppendText获得一个StreamWriter，然后用Write或WriteLine函数写入一些字符串，最后写入流并关闭它。

Dim sw As StreamWriter = System.IO.File.AppendText("textfile.txt")

Using sw

sw.Write("This is ") '仅写入字符串

sw.WriteLine("line 1.") '写入字符串并自动写入换行符

sw.Flush() '写入流

End Using '这里释放了资源

vb.netme.containskey方法

作用是判断Map中是否有所需要的键值，下面是具体的代码：

复制代码

public static void main(String[] args) {

MapString, String map = new HashMapString, String();

map.put("sf2", "111111");

map.put("s3f", "111111");

map.put("s4f", "111111");

map.put("s5f", "111111");

Boolean is = map.containsKey("f2");

if(is){

System.out.println("是有这个值的");

}else{

System.out.println("没有的");

}

vb.net 二进制读取文件

VB.NET打开二进制文件用fileopen完成，打开二进制文件的形式为：openmode.binary

读取二进制文件用的是fileget方法，写入二进制文件用的是fileput方法。

应用示例：将一批随机数保存在一个dat文件中，然后再将其提取到文本框中。

二进制文件的读写一批随机数的存取，程序为：

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim x, i, fn As Integer

Dim s As String = ""

fn = FreeFile()

FileOpen(fn, "d:\data.dat", OpenMode.Binary)

For i = 1 To 8

x = Int(Rnd() * 100)

s = s + Str(x)

FilePut(fn, x)

FileClose(fn)

TextBox1.Text = s

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

Dim x, fn As Integer

Dim s As String = ""

fn = FreeFile()

FileOpen(fn, "d:\data.dat", OpenMode.Binary)

Do While Not EOF(fn)

FileGet(fn, x)

s = s + Str(x) + " "

Loop