Private Sub form_load()

Private Sub form_load()
Dim s As Integer,k As String,BB() As Byte
Dim FileName As String,rad() As String
FileName = "e:\頻率.txt"
If Dir(FileName) = "" Then Exit Sub
s = FreeFile
ReDim BB(FileLen(FileName) - 1)
Open FileName For Binary As #s
Get #s,,BB
Close #s
k = StrConv(BB,vbUnicode)
rad() = split(k,vbNewLine)
End Sub

其他人氣：449 ℃時間：2020-10-02 04:31:37

優(yōu)質(zhì)解答

Private Sub form_load()
Dim s As Integer,k As String,BB() As Byte 定義變量
Dim FileName As String,rad() As String 定義變量
FileName = "e:\頻率.txt" 定義文件名
If Dir(FileName) = "" Then Exit Sub 查看文件是否存在,如果不存在就退出
s = FreeFile
ReDim BB(FileLen(FileName) - 1)
Open FileName For Binary As #s
Get #s,,BB 把文件內(nèi)容以2進(jìn)制方式讀入數(shù)組BB
Close #s
k = StrConv(BB,vbUnicode) 轉(zhuǎn)化數(shù)組中的字符方式為Unicode
rad() = split(k,vbNewLine) 以回車換行符分割K中的字符,轉(zhuǎn)換到RAD中
End Sub
整段程序的意思是讀入文件,以每行為單位,賦值給RAD（）數(shù)組!

我來回答

類似推薦

猜你喜歡

精品偷拍一区二区三区,亚洲精品永久 码,亚洲综合日韩精品欧美国产,亚洲国产日韩a在线亚洲

Private Sub form_load()

精品偷拍一区二区三区,亚洲精品永久码,亚洲综合日韩精品欧美国产,亚洲国产日韩a在线亚洲