VB可以用任何格式保存文件數據不僅僅是注冊表\XML\INI
成都創新互聯是專業的惠東網站建設公司,惠東接單;提供成都網站制作、網站建設、外貿網站建設,網頁設計,網站設計,建網站,PHP網站建設等專業做網站服務;采用PHP框架,可快速的進行惠東網站開發網頁制作和功能擴展;專業做搜索引擎喜愛的網站,專業的做網站團隊,希望更多企業前來合作!
甚至于未知的格式。我教你命令:
open "C:\setup.safe" for output as #1
print #1,"object"
close #1
其中setup.safe就是一個文件,后綴為.safe,當然可以改成.dat包括其他任何后綴.
object就是你要寫入setup.safe的內容.
都是用SQL語句完成的
寫入數據庫
strSQL="INTO TABLENAME (OPTION1,OPTIN2)VALUES(VALUE1,VALUE2)";
cmd.Connection = conn;
cmd.CommandText = strSQL;
cmd.Parameters.Add(paramrs[i]);
try
{
conn.Open();
}
catch(Exception ex)
{
throw ex;
}
finally
{
cmd.Parameters.Clear();
cmd.CommandText = null;
cmd.Dispose();
conn.Close();
}
讀取值
strSQL ="SELECT OPTION1,OPTION2 FROM TABLENAME";
cmd.CommandText = strSQL;
cmd.Connection = conn;
DataSet ds = new DataSet();
try
{
conn.Open();
SqlDataAdapter da = new SqlDataAdapter(cmd);
da.Fill(ds);
}
catch (Exception ex)
{
throw ex;
}
finally
{
cmd.Dispose();
conn.Close();
}
TextBox2.text = ds.Tables[0].rows[0][0].value.tostring();
窗體上建立BUTTON1和TEXTBOX1
代碼如下
100%正確,剛剛寫的,調試好了
Imports System.io
Public Class form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim fs As New FileStream("d:\文本.txt", FileMode.Create, FileAccess.Write)
Dim r As New StreamWriter(fs)
Dim I As Integer
r.Write(TextBox1.Lines(I))
r.Flush()
r.Close()
End Sub
End Class
路徑自己修改
(你的給分是我回答的動力)
我理解你
我寫過圖片網絡傳輸的和你要求的一樣
為了不把圖片寫到硬盤 又從硬盤讀取
而直接保存圖片內存流 進行網絡傳輸
從網絡讀取的圖片byte數組轉成圖片代碼如下
Dim mStream As New IO.MemoryStream
mStream.Write(b, 0, b.length) '這里b就是你的一維數組了
Dim Img As New Bitmap(mStream)
mStream.Close()
mStream.Dispose()
下面是把圖片保存到一維數組的方法
Dim Stream As New IO.MemoryStream
im.Save(Stream, System.Drawing.Imaging.ImageFormat.Jpeg)
im = Nothing
Stream.Flush()
Dim b As Byte() = Stream.ToArray
Stream.Dispose()
好像是讀文件流再寫入,讀出時是再調用DRAW轉成圖吧,僅供參考
實在不建議這樣做
ACCESS本來對多用戶就支持不好,再者數據多了也影響速度,建議將文件保存到磁盤,數據庫僅保存路徑
我自己的項目全部是這樣
Private Sub Command1_Click()
'寫文件示例
Dim strFileName As String '文件名
Dim lngHandle As Long '句柄
Dim strWrite As String '要寫入的文本內容
strFileName = App.Path "\a.txt"
''''''''App.Path "\a.txt"相對路徑
''"c:\w.txt"絕對路徑
lngHandle = FreeFile() '取得句柄
'準備要寫入的內容
strWrite = Text1.Text '或者 strWrite = "這些文字將被寫入文件。"
'For后面的參數表示以何種方式打開文件,Input是讀取,Output是覆蓋寫入,Append是追加寫入
''''''append是每次在文件末尾寫入,不刪除其它已經存在的文件.如果換成output則刪除其它文件后再寫入
''''''print#1,text1.text ''''''如果print換成write則寫進txt中后自動加雙引號
Open strFileName For Output As lngHandle '打開文件
Print #lngHandle, strWrite '寫入文本
Close lngHandle '關閉文件
End Sub
Private Sub Command2_Click()
'讀文件示例
Dim strFileName As String '文件名
Dim lngHandle As Long '文件句柄
Dim strAll As String '所讀取的文本文件的所有內容
Dim strLine As String '在循環中存放每行的內容
strFileName = App.Path "\a.txt"
'獲得文件的句柄
lngHandle = FreeFile()
'For后面的參數表示以何種方式打開文件,Input是讀取,Output是覆蓋寫入,Append是追加寫入
Open strFileName For Input As lngHandle
'循環直到文件尾
Do While Not EOF(lngHandle)
'每次讀取一行存放在strLine變量中
Line Input #lngHandle, strLine
'每次讀取都把所讀到的內容連接到strAll變量,由于Line Input去掉了換行符,所以這里補上
strAllstrAll = strAll strLine vbCrLf
Loop
'顯示得到的全部分內容
MsgBox strAll
End Sub
Private Sub Command1_Click()
Open App.Path "\a.txt" For Output As #1
Print #1, Text1.Text '這里可以是數據本身也可以是目標控件的屬性
Close #1 '關閉打開的文件
End Sub
'For后面的參數表示以何種方式打開文件,Input是讀取,Output是覆蓋寫入,Append是追加寫入
append是每次在文件末尾寫入,不刪除其它已經存在的文件.如果換成output則刪除其它文件后再寫入 print#1,text1.text 如果print換成write則寫進txt中后自動加雙引號,以上就是數據保存為VB.NET TXT文件的代碼。
新聞標題:包含vb.net寫入流保存的詞條
鏈接地址:http://vcdvsql.cn/article40/dooogeo.html
成都網站建設公司_創新互聯,為您提供用戶體驗、企業網站制作、網站營銷、品牌網站建設、微信公眾號、ChatGPT
聲明:本網站發布的內容(圖片、視頻和文字)以用戶投稿、用戶轉載內容為主,如果涉及侵權請盡快告知,我們將會在第一時間刪除。文章觀點不代表本網站立場,如需處理請聯系客服。電話:028-86922220;郵箱:631063699@qq.com。內容未經允許不得轉載,或轉載時需注明來源: 創新互聯