重慶分公司,新征程啟航
為企業(yè)提供網(wǎng)站建設、域名注冊、服務器等服務
為企業(yè)提供網(wǎng)站建設、域名注冊、服務器等服務
1,對于INI文件,可以當做像TXT文件一樣來進行讀取和寫入。
成都創(chuàng)新互聯(lián)專注于碾子山網(wǎng)站建設服務及定制,我們擁有豐富的企業(yè)做網(wǎng)站經(jīng)驗。 熱誠為您提供碾子山營銷型網(wǎng)站建設,碾子山網(wǎng)站制作、碾子山網(wǎng)頁設計、碾子山網(wǎng)站官網(wǎng)定制、小程序開發(fā)服務,打造碾子山網(wǎng)絡公司原創(chuàng)品牌,更為您提供碾子山網(wǎng)站排名全網(wǎng)營銷落地服務。
2,先把整個文件度出來,然后找到相應行刪除(拋棄)以后,再重新寫入文件。
Public?Class?Form1
Private?Sub?Button1_Click(ByVal?sender?As?System.Object,?ByVal?e?As?System.EventArgs)?Handles?Button1.Click
Dim?MyStr?As?String?=?""
Dim?AllStr?As?String?=?""
'獲取一個可用的文件號
Dim?MyFileNum?As?Integer?=?FreeFile()
'打開指定的文件,進行讀取操作
FileOpen(MyFileNum,?"C:\My.ini",?OpenMode.Input)
Do?While?Not?EOF(MyFileNum)
'讀取一行
MyStr?=?LineInput(MyFileNum)
If?MyStr??"b=2"?Then
If?AllStr?=?""?Then
AllStr?=?AllStr??MyStr
Else
AllStr?=?AllStr??vbCrLf??MyStr
End?If
End?If
Loop
FileClose(MyFileNum)???'關閉文件
'寫文件
Dim?MyStream?As?New?System.IO.FileStream("C:\My.ini",?IO.FileMode.Create)
Dim?MyWriter?As?New?System.IO.StreamWriter(MyStream,?System.Text.Encoding.UTF8)
MyWriter.WriteLine(AllStr)
MyWriter.Flush()
MyWriter.Close()
MyStream.Close()
End?Sub
End?Class
Private?Sub?btnRemovePath_Click(ByVal?sender?As?System.Object,?ByVal?e?As?System.EventArgs)?Handles?btnRemovePath.Click
Try
'?先建立目錄以便用于后續(xù)的刪除示范。
If?Not?Directory.Exists("D:\網(wǎng)易")?Then
Directory.CreateDirectory("?D:\網(wǎng)易?\Test1")
Directory.CreateDirectory("?D:\網(wǎng)易?\Test2")
Directory.CreateDirectory("?D:\網(wǎng)易?\Test3")
End?If
'?刪除子目錄?Test1。
Directory.Delete("?D:\網(wǎng)易?\Test1",?True)
'?刪除子目錄?Test2。
Dim?myDirectoryInfo?As?New?DirectoryInfo("?D:\網(wǎng)易?\Test2")
myDirectoryInfo.Delete(True)
'?將目錄?C:\AlexDirDemo?及其以下的文件和子目錄全數(shù)刪除。
Directory.Delete("?D:\網(wǎng)易?",?True)
Catch?ex?As?Exception
MessageBox.Show(ex.Message)
Exit?Sub
End?Try
'?啟動?Windows?資源管理器。
Process.Start("explorer.exe",?"D:\")
End?Sub
先殺進程再刪除文件
Visual Basic code
//殺進程代碼
Private?Sub?KillProcess(ByVal?processName?As?String)
Dim?myproc?As?System.Diagnostics.Process?=?New?System.Diagnostics.Process
Try
For?Each?thisproc?As?Process?In?Process.GetProcessesByName(processName)
If?(Not?thisproc.CloseMainWindow())?Then
thisproc.Kill()
End?If
Next
Catch
End?Try
End?Sub
這么菜的問題,分還挺高啊,循環(huán)讀文件,每次一行,跟你輸入的內容比較一樣就記錄行號并且終止循環(huán),并且新建個文件寫入從開頭到第(你記錄的行號-1)行的內容和(你記錄的行號+1)行以后的內容,把源文件刪了,把新文件改名為老文件名,不一樣就繼續(xù)循環(huán)讀取,到最后讀完都沒有則提示沒有這個內容
就這樣,具體程序自己寫,如果沒耐心那就沒辦法了 學不來編程了
關于這個問題昨天下午我專門研究了一下,我想問一下你的OleDbDataAdapter 是否是通過映射數(shù)據(jù)庫表生成的 ?還是你自己寫的 ?
如果是自己寫那么它應該不能更新數(shù)據(jù)庫,因為它沒有獲得對數(shù)據(jù)庫表的映射。
你嘗試一下以下操作:
1、在頁面上拖拽一個 OleDbDataAdapter 控件
2、在屬性頁中選擇“配置數(shù)據(jù)適配器”
3、根據(jù)向導生成數(shù)據(jù)映射
4、然后再調用你的方法
經(jīng)過以上操作,應該可以解決你的問題。
這不是廢話嗎,DeleteSubKey只能刪除調用實例的子項,并不能直接刪除子子項。