VB可以用任何格式保存文件數(shù)據(jù)不僅僅是注冊(cè)表\XML\INI
成都創(chuàng)新互聯(lián)是專業(yè)的惠東網(wǎng)站建設(shè)公司,惠東接單;提供成都網(wǎng)站制作、網(wǎng)站建設(shè)、外貿(mào)網(wǎng)站建設(shè),網(wǎng)頁(yè)設(shè)計(jì),網(wǎng)站設(shè)計(jì),建網(wǎng)站,PHP網(wǎng)站建設(shè)等專業(yè)做網(wǎng)站服務(wù);采用PHP框架,可快速的進(jìn)行惠東網(wǎng)站開發(fā)網(wǎng)頁(yè)制作和功能擴(kuò)展;專業(yè)做搜索引擎喜愛的網(wǎng)站,專業(yè)的做網(wǎng)站團(tuán)隊(duì),希望更多企業(yè)前來合作!
甚至于未知的格式。我教你命令:
open "C:\setup.safe" for output as #1
print #1,"object"
close #1
其中setup.safe就是一個(gè)文件,后綴為.safe,當(dāng)然可以改成.dat包括其他任何后綴.
object就是你要寫入setup.safe的內(nèi)容.
都是用SQL語句完成的
寫入數(shù)據(jù)庫(kù)
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%正確,剛剛寫的,調(diào)試好了
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
路徑自己修改
(你的給分是我回答的動(dòng)力)
我理解你
我寫過圖片網(wǎng)絡(luò)傳輸?shù)暮湍阋蟮囊粯?/p>
為了不把圖片寫到硬盤 又從硬盤讀取
而直接保存圖片內(nèi)存流 進(jìn)行網(wǎng)絡(luò)傳輸
從網(wǎng)絡(luò)讀取的圖片byte數(shù)組轉(zhuǎn)成圖片代碼如下
Dim mStream As New IO.MemoryStream
mStream.Write(b, 0, b.length) '這里b就是你的一維數(shù)組了
Dim Img As New Bitmap(mStream)
mStream.Close()
mStream.Dispose()
下面是把圖片保存到一維數(shù)組的方法
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()
好像是讀文件流再寫入,讀出時(shí)是再調(diào)用DRAW轉(zhuǎn)成圖吧,僅供參考
實(shí)在不建議這樣做
ACCESS本來對(duì)多用戶就支持不好,再者數(shù)據(jù)多了也影響速度,建議將文件保存到磁盤,數(shù)據(jù)庫(kù)僅保存路徑
我自己的項(xiàng)目全部是這樣
Private Sub Command1_Click()
'寫文件示例
Dim strFileName As String '文件名
Dim lngHandle As Long '句柄
Dim strWrite As String '要寫入的文本內(nèi)容
strFileName = App.Path "\a.txt"
''''''''App.Path "\a.txt"相對(duì)路徑
''"c:\w.txt"絕對(duì)路徑
lngHandle = FreeFile() '取得句柄
'準(zhǔn)備要寫入的內(nèi)容
strWrite = Text1.Text '或者 strWrite = "這些文字將被寫入文件。"
'For后面的參數(shù)表示以何種方式打開文件,Input是讀取,Output是覆蓋寫入,Append是追加寫入
''''''append是每次在文件末尾寫入,不刪除其它已經(jīng)存在的文件.如果換成output則刪除其它文件后再寫入
''''''print#1,text1.text ''''''如果print換成write則寫進(jìn)txt中后自動(dòng)加雙引號(hào)
Open strFileName For Output As lngHandle '打開文件
Print #lngHandle, strWrite '寫入文本
Close lngHandle '關(guān)閉文件
End Sub
Private Sub Command2_Click()
'讀文件示例
Dim strFileName As String '文件名
Dim lngHandle As Long '文件句柄
Dim strAll As String '所讀取的文本文件的所有內(nèi)容
Dim strLine As String '在循環(huán)中存放每行的內(nèi)容
strFileName = App.Path "\a.txt"
'獲得文件的句柄
lngHandle = FreeFile()
'For后面的參數(shù)表示以何種方式打開文件,Input是讀取,Output是覆蓋寫入,Append是追加寫入
Open strFileName For Input As lngHandle
'循環(huán)直到文件尾
Do While Not EOF(lngHandle)
'每次讀取一行存放在strLine變量中
Line Input #lngHandle, strLine
'每次讀取都把所讀到的內(nèi)容連接到strAll變量,由于Line Input去掉了換行符,所以這里補(bǔ)上
strAllstrAll = strAll strLine vbCrLf
Loop
'顯示得到的全部分內(nèi)容
MsgBox strAll
End Sub
Private Sub Command1_Click()
Open App.Path "\a.txt" For Output As #1
Print #1, Text1.Text '這里可以是數(shù)據(jù)本身也可以是目標(biāo)控件的屬性
Close #1 '關(guān)閉打開的文件
End Sub
'For后面的參數(shù)表示以何種方式打開文件,Input是讀取,Output是覆蓋寫入,Append是追加寫入
append是每次在文件末尾寫入,不刪除其它已經(jīng)存在的文件.如果換成output則刪除其它文件后再寫入 print#1,text1.text 如果print換成write則寫進(jìn)txt中后自動(dòng)加雙引號(hào),以上就是數(shù)據(jù)保存為VB.NET TXT文件的代碼。
新聞標(biāo)題:包含vb.net寫入流保存的詞條
鏈接地址:http://aaarwkj.com/article40/dooogeo.html
成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián),為您提供用戶體驗(yàn)、企業(yè)網(wǎng)站制作、網(wǎng)站營(yíng)銷、品牌網(wǎng)站建設(shè)、微信公眾號(hào)、ChatGPT
聲明:本網(wǎng)站發(fā)布的內(nèi)容(圖片、視頻和文字)以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主,如果涉及侵權(quán)請(qǐng)盡快告知,我們將會(huì)在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場(chǎng),如需處理請(qǐng)聯(lián)系客服。電話:028-86922220;郵箱:631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載,或轉(zhuǎn)載時(shí)需注明來源: 創(chuàng)新互聯(lián)