免费视频淫片aa毛片_日韩高清在线亚洲专区vr_日韩大片免费观看视频播放_亚洲欧美国产精品完整版

VB6.0對(duì)TXT文本文件的讀寫刪操作

把文本文件內(nèi)容寫到TextBox：
Dim TempFile As Long
Dim LoadBytes() As Byte

TempFile=FreeFile
Open 文件名 For Binary As #TempFile
Redim LoadBytes(1 To Lof(TempFile)) As Byte
Get #TempFile,,LoadBytes
Close TempFile

Text1.Text=StrConv(LoadBytes,vbUniCode)



把TextBox內(nèi)容寫入文本文件：
Dim TempFile As Long
Dim SaveBytes() As Byte

SaveBytes=StrConv(Text1.Text,vbFromUniCode)

TempFile=FreeFile
Open 文件名 For Binary As #TempFile
Put #TempFile,,SaveBytes
Close TempFile

刪除TXT文件里的內(nèi)容：
Private Function DelLine(strFile As String, RLine As Long, newFile As String, SameLine As Boolean)
Dim s As String, n As String, i As Long
i = 1

'//打開源文件
Open strFile For Input As #1
Do Until EOF(1)
Line Input #1, s
If RLine = i Then '如果是指定的行數(shù)就進(jìn)行下面的操作

If SameLine = True Then '是否保持源文件行數(shù)不變(以空白字符替換這一行內(nèi)容)的提示,True保持源文件的行數(shù),False為直接刪除這一行的內(nèi)容
s = ""
n = n & s & vbCrLf '將空字符串賦給變量n,以保持源文件的行數(shù)
' MsgBox strFile & " 文件中,第 " & RLine & " 行內(nèi)容" & vbCrLf & s & vbCrLf & "已經(jīng)刪除", vbInformation, "消息提示"
End If
' s="也可以把這一行的內(nèi)容改成自己需要的"

Else '如果不是指定的行數(shù),就將s的內(nèi)容賦給變量n 以存儲(chǔ)數(shù)據(jù)
n = n & s & vbCrLf '將s的內(nèi)容賦給n 并以一個(gè)回車符號(hào)結(jié)束....
End If
i = i + 1
Loop
Close #1

'//寫入新文件,如果和源文件同名則會(huì)覆蓋源文件
Open newFile For Output As #2
Print #2, n '將n變量里的數(shù)據(jù)寫入新文件
Close #2

End Function

'調(diào)用方法:
'比如要把c:\1.txt 刪除其中的第5行內(nèi)容,并保留源文件總行數(shù)(刪除的這行插入一空字符串)
'DelLine "C:\1.txt", 5, "C:\2.txt", True
'刪除C:\1.txt 刪除里面的第一行,且不保留文件的總行數(shù)
DelLine "C:\1.txt", 1, "C:\1.txt", False