怎樣可以做到讓創建的txt文本進行自動隨機添加內容
txt檔案中內容格式預先設定好的，只是更改其中一兩個值
例如正常作業直流(1)，正常作業交流(2)，斷電(3)，這樣隨機變換123
uj5u.com熱心網友回復：
不明白“自動隨機添加”是什么意思。寫檔案還是要寫代碼的。你用 Open "檔案名" For Append As #1 打開檔案，Print #1, <你的值> 即可添加寫入。記住最后要 Close #1。
uj5u.com熱心網友回復：
Option Explicit
Sub RandomAppend(ByVal FileName As String)
Dim hFile As Integer
Dim i As Long
hFile = FreeFile()
Open FileName For Append As #hFile
Randomize
i = Int(Rnd() * 3) + 1
Select Case i
Case 1: Print #hFile, "正常作業直流"
Case 2: Print #hFile, "正常作業交流"
Case 3: Print #hFile, "斷電"
End Select
Close #hFile
End Sub
Private Sub Command1_Click()
RandomAppend "D:\temp\1.txt"
End Sub
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/76805.html
標籤：VB基礎類
上一篇：求大神，老師讓我們把時間控制元件洗掉，或者只用一個，讓我們實作相同的功能。。溫度監控的功能。剛接觸VB，總是達不到效果。