国产一级a片免费看高清,亚洲熟女中文字幕在线视频,黄三级高清在线播放,免费黄色视频在线看

VB中可以在循環(huán)中使用Line Input # 語句一行行讀入文本，直到到達(dá)文件的結(jié)尾。

Line Input # 語句，從已打開的順序文件中讀出一行并將它分配給 String變量。

EOF 函數(shù)，返回一個(gè) Integer，它包含 Boolean 值 True，表明已經(jīng)到達(dá)為 Random
或順序 Input 打開的文件的結(jié)尾。

具體代碼：

Private Sub Command1_Click()
    Dim i As Long
    Dim strj() As String
    ' 設(shè)置“CancelError”為 True
    CommonDialog1.CancelError = True
    On Error GoTo ErrHandler
    ' 設(shè)置標(biāo)志
    CommonDialog1.Flags = cdlOFNHideReadOnly
    ' 設(shè)置過濾器
    CommonDialog1.Filter = "All Files (*.*)|*.*|Text Files" & "(*.txt)|*.txt|Batch Files (*.bat)|*.bat"
    ' 指定缺省的過濾器
    CommonDialog1.FilterIndex = 2
    ' 顯示“打開”對(duì)話框
    CommonDialog1.ShowOpen
    ' 顯示選定文件的名字
    Debug.Print CommonDialog1.FileName
    str = CommonDialog1.FileName
    Open CommonDialog1.    Exit Sub
End Sub