十年網(wǎng)站開發(fā)經(jīng)驗(yàn) + 多家企業(yè)客戶 + 靠譜的建站團(tuán)隊(duì)
量身定制 + 運(yùn)營(yíng)維護(hù)+專業(yè)推廣+無(wú)憂售后,網(wǎng)站問(wèn)題一站解決
FileOpen(文件號(hào),文件路徑,讀取方式,讀取卜告類型)
創(chuàng)新互聯(lián)致力于互聯(lián)網(wǎng)網(wǎng)站建設(shè)與網(wǎng)站營(yíng)銷,提供成都做網(wǎng)站、成都網(wǎng)站建設(shè)、成都外貿(mào)網(wǎng)站建設(shè)、網(wǎng)站開發(fā)、seo優(yōu)化、網(wǎng)站排名、互聯(lián)網(wǎng)營(yíng)銷、成都微信小程序、公眾號(hào)商城、等建站開發(fā),創(chuàng)新互聯(lián)網(wǎng)站建設(shè)策劃專家,為不同類型的客戶提供良好的互聯(lián)網(wǎng)應(yīng)用定制解決方案,幫助客戶在新的全球化互聯(lián)網(wǎng)環(huán)境中保持優(yōu)勢(shì)。
GET讀取數(shù)據(jù)函數(shù)
PUT寫入數(shù)據(jù)函數(shù)
FielClose(文件號(hào))
當(dāng)前路徑很簡(jiǎn)單,你打開opendailog時(shí)候會(huì)返回一個(gè)FILENAMES的文件路徑,那洞弊銀么用到上面讀寫模式就納宴行。
可以調(diào)用CMD
方法一:
Shell("cmd.exe?/c?call?c:\新建文本文檔.txt",?AppWinStyle.NormalFocus)
缺點(diǎn):不但會(huì)打開文本文件,同時(shí)還會(huì)顯示一個(gè)cmd窗體。
方法二:
需要新建一個(gè)bat文件到資源亮孫里,輸宏鍵鏈入start C:\新建文本文檔.txt
代碼
shell?"bat文件的路蔽孫徑.bat"
這樣就好了,兩種方法各有好壞。一個(gè)會(huì)顯示cmd窗體,一個(gè)需要bat文件。
說(shuō)明:以下代碼在Microsoft Visual Basic 2005 (簡(jiǎn)體中文版)中通過(guò)。
創(chuàng)建新項(xiàng)目:
在窗體上添加文本框2個(gè):TextBox1,TextBox2
TextBox1 -- 用來(lái)編輯要寫入的文本文件的內(nèi)容滾塵,大臘禪或顯示打開的文本文件的內(nèi)容
TextBox2 -- 用來(lái)輸入要打開或要寫入的文件名(包括盤符,路徑)(例如:c:\123.txt)
在窗體上添加2個(gè)按鈕:Button1,Button2
Button1 -- 寫入文件
Button2 -- 打開文件
代碼如下:
Imports System.IO
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim w As New StreamWriter(TextBox2.Text)
w.Write(TextBox1.Text)
w.Close()
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim r As New StreamReader(TextBox2.Text)
Dim s As String
TextBox1.Text = ""
Do While r.Peek -1 '局寬是否到文件尾
s = r.ReadLine
' MessageBox.Show(r.Peek)
TextBox1.Text = TextBox1.Text s vbCrLf
Loop
r.Close()
End Sub
End Class
補(bǔ)充:你要把讀出的數(shù)據(jù)賦值給一個(gè)變量,只要:聲明一個(gè)變量為數(shù)值類型,然后只要讀取一行就可以了,把這行數(shù)據(jù)經(jīng)過(guò)轉(zhuǎn)換成數(shù)值后賦給這個(gè)變量.
軟糖來(lái)租桐告訴你吧。
VB點(diǎn)虐 中讀寫文件主要使用System.IO命名空間。
① 使用 File.ReadAllText 讀取
Dim s As String = System.IO.File.ReadAllText("C:\a.txt")
② 使用 StreamReader 讀取,注意編碼格式和寫入的編碼保持兆型賀一致。
Dim sr As StreamReader = New StreamReader("C:\a.txt", System.Text.Encoding.UTF8)
Dim s As String = sr.ReadToEnd()
sr.Close()
③ 使用 File.WriteAllText 寫入,會(huì)覆蓋同名的文件。
Dim 要寫的內(nèi)容 As String = ""
File.WriteAllText(文件路徑, 要寫的內(nèi)容, System.Text.Encoding.UTF8)
④ 使用 StreamWriter 寫入。
Dim sw As System.IO.StreamWriter = New System.IO.StreamWriter("C:\a.txt", False, System.Text.Encoding.UTF8)
sw.WriteLine(TextTB.Text)
sw.Close()
⑤ 使用 StreamWriter 追加寫入。族派
將上面代碼的第二個(gè)參數(shù)False改為True。
◆ 滿意請(qǐng)采納,謝謝 ◆