谁能给我文件操作的例子.

wei8011 2003-05-08 06:04:42
谁能给我文件操作的例子?
...全文
60 1 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
1 条回复
切换为时间正序
请发表友善的回复…
发表回复
Ozone_79 2003-05-08
  • 打赏
  • 举报
回复
dlgFileOpen.CancelError = True
On Error GoTo err

' Set flags
dlgFileOpen.Flags = cdlOFNHideReadOnly
dlgFileOpen.InitDir = Dpath.MENTE_TANA

' Set filters
dlgFileOpen.Filter = "All Files (*.*)|*.*|Data Files(*.DAT)|*.DAT|Text Files" & _
"(*.txt)|*.txt|Excel Files (*.xls)|*.xls"

' Specify default filter
dlgFileOpen.FilterIndex = 2
dlgFileOpen.FileName = ""

' Display the Open dialog box
dlgFileOpen.ShowOpen

' Display name of selected file
strFileName = dlgFileOpen.FileName

Me.Refresh 'Refresh the pic.
' SetCursor (gLnCurBusy) 'Set cursor to be busy.


' Get the File Num.
intFileNum = FreeFile

' File Open
err.Clear
Open strFileName For Input As #intFileNum
If err.Number > 0 Then
'OPEN Fail!
handleMsg "30001"
GoTo err
End If

Me.Refresh

Do While Not EOF(intFileNum) ' Read file untile blank line.
err.Clear
Line Input #intFileNum, buff
If buff = "" Then ' Blank line, exit.
Exit Do
End If
iRow = iRow + 1
buff = LTrim(buff)
' Modify by LiuYang 2002/11/21
If Len(buff) <> intLiu_TANA_REC_ACTS And Len(buff) <> intLiu_TANA_REC_PRISM Then
MsgBox "第 " & iRow & " 行の長さが間違っています!", vbCritical, "YFC保管システム"
' Unload dlgProcessBar
GoTo err
End If
' Modify End
Loop
Close #intFileNum
Open strFileName For Input As #intFileNum

fraProcess.ZOrder 0
fraProcess.Visible = True
Me.barCheck.Value = 0
Me.barPutDB.Value = 0
Me.Refresh

Do While Not EOF(intFileNum) ' Read file untile blank line.
err.Clear
Line Input #intFileNum, buff
If buff = "" Then ' Blank line, exit.
Exit Do
End If

If err.Number > 0 Then ' Error.
'READ Fail!
handleMsg "30001"
' Unload dlgProcessBar
GoTo err
End If

ReDim Preserve strFileData(1 To 6, UBound(strFileData(), 2) + 1)
' Added by LiuYang in ShangHai wanbishi on 2002/11/21
intSartPos = 3
If Len(buff) = intLiu_TANA_REC_ACTS Then
intSartPos = intSartPos + intLiu_TANA_INTPOS_ACTS
strFileData(1, UBound(strFileData(), 2)) = Trim(Mid(buff, intSartPos, intLiu_TANA_CUSTCD_ACTS))
intSartPos = intSartPos + intLiu_TANA_CUSTCD_ACTS
strFileData(2, UBound(strFileData(), 2)) = Trim(Mid(buff, intSartPos, intLiu_TANA_HOBON2_ACTS))
intSartPos = intSartPos + intLiu_TANA_HOBON2_ACTS
strFileData(3, UBound(strFileData(), 2)) = Trim(Mid(buff, intSartPos, intLiu_TANA_KANRINO_ACTS))
intSartPos = intSartPos + intLiu_TANA_KANRINO_ACTS
strFileData(4, UBound(strFileData(), 2)) = Trim(Mid(buff, intSartPos, intLiu_TANA_CENCODE_ACTS))
intSartPos = intSartPos + intLiu_TANA_CENCODE_ACTS
strFileData(5, UBound(strFileData(), 2)) = Trim(Mid(buff, intSartPos, intLiu_TANA_TANAADD_ACTS))
intSartPos = intSartPos + intLiu_TANA_TANAADD_ACTS
strFileData(6, UBound(strFileData(), 2)) = Trim(Mid(buff, intSartPos, intLiu_TANA_MEMO_ACTS))
End If
If Len(buff) = intLiu_TANA_REC_PRISM Then
intSartPos = intSartPos + intLiu_TANA_INTPOS_PRISM
strFileData(1, UBound(strFileData(), 2)) = Trim(Mid(buff, intSartPos, intLiu_TANA_CUSTCD_PRISM))
intSartPos = intSartPo

7,785

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧