投稿日 | : 2003/04/26(Sat) 20:00 |
投稿者 | : nobu |
Eメール | : |
URL | : |
タイトル | : Re^2: テキストファイルから行列指定で切り出す方法 |
> 切り出し始めと終わりの4文字は確定しているので
> 始めを地道に探しながらそこから終わりの4文字を見つけるまで頑張ります。
検索文字列が分かっているなら、まづは'切り出したい文字列のある行を
取得してから Instr で見つけたらどうですか? 例えば
Private Sub Form_Load()
Dim tmp As String
Dim tmp1 As String
Dim tmp2 As String
Dim tmp3 As String
Dim fp1 As Integer
Dim fp2 As Integer
Dim ln As Integer
tmp = "ABCDEFGHIJKLMNOPQRSTUVWXYZ" '切り出したい行の文字列
tmp1 = "CDEF" '切り出し始め
tmp2 = "QRS" '切り出し終わり
fp1 = InStr(tmp, tmp1)
fp2 = InStr(tmp, tmp2)
ln = Len(tmp2)
tmp3 = Mid(tmp, fp1, fp2 + ln - fp1) '切り出し結果
Debug.Print tmp3
End Sub
その行に検索する同じ文字列が複数ある時は、そのどれかを
確定しておく必要はありますが....。