はじめまして。宜しくお願いします。
現在Access2002のVBAをつかってタイトルのようなことを実現したいと思っています。
Dim a As String
Dim b As String
という二つの変数を用意して
「C:\Documents and Settings\デスクトップ\test.csv」という文字列が与えられているとき
変数aには「test.csv」を、変数bには「C:\Documents and Settings\デスクトップ\」を
格納しようとしています。
スマートなやり方がわからず、
文字列の右から一文字ずつ比較して行き、何文字目に「￥」が出てくるかをカウントして、right関数とleft関数で分割を行っています。
このような処理を行う場合、なにか適した関数があると思い探しているのですが、
なかなか見つからず、行き詰っています。（そのような関数があるのかも分からず・・）
もしもなにかお気づきの方が居られましたら、ご教授宜しくお願いします。
↓のコードだと、ファイルを読み込んだ時点でVBがフリーズします（平気なファイルも一部ある）。原因と解決法を教えてください。
Private Sub Command1_Click()
CommonDialog1.Filter = "テキスト(*.txt)|*.txt|すべて(*.*)|*.*"
CommonDialog1.FilterIndex = 1
CommonDialog1.Flags = cdlONFileMustExist
CommonDialog1.CancelError = True
On Error Resume Next
CommonDialog1.ShowOpen
If (Err = 0) Then
FileRead CommonDialog1.FileName
End If
On Error GoTo 0
End Sub
Private Sub FileRead(FL As String)
Dim FileNo As Integer
Dim strDAT As String
Dim strELM As String
Dim pot1 As Integer, pot2 As Integer
Dim pDB1 As Integer, pDB2 As Integer
FileNo = FreeFile()
Open FL For Input As #FileNo
While Not EOF(FileNo)
Line Input #FileNo, strDAT
strDAT = strDAT & ":"
pot1 = InStr(strDAT, ":")
While pot1 > 0
strELM = Left(strDAT, pot1)
pot2 = InStr(strELM, "OPEN")
While pot2 > 0
pDB1 = InStr(strELM, Chr(&H22))
If pDB1 > 0 Then '前の『"』の位置
pDB2 = InStr(pDB1 + 1, strELM, Chr(&H22))
If pDB2 > 0 Then
RichTextBox1.Text = RichTextBox1.Text & _
Mid(strELM, pDB1 + 1, pDB2 - pDB1 - 1) & vbCrLf
End If
End If
pot2 = InStr(pDB2 + 1, strELM, "OPEN")
Wend
strDAT = Mid(strDAT, pot1 + 1)
pot1 = InStr(strDAT, ":")
Wend
Wend
Close #FileNo
End Sub
