|
今日はちょっと時間が無いんで一応これで出来ればこれで・・・。
条件が違う場合はどなたかがサポートしてくれると思います。
---> から <--- 迄がひとつの構文になります。
If Buf(Cnt) Like MasterFlg & "*" Then
StrMAster = Mid(Buf(Cnt), Len(MasterFlg) + 1)
ElseIf Buf(Cnt) Like DateFlg & "*" Then
StrDate = Mid(Buf(Cnt), Len(DateFlg) + 1)
ElseIf Buf(Cnt) Like VluFlg & "*" Then
StrData = Mid(Buf(Cnt), Len(VluFlg) + 1)
With Range(Cells(RCnt, 1), Cells(RCnt, 3))
.NumberFormatLocal = "@"
.Value = Array(CStr(StrMAster), StrData, Format(StrDate, "YYYY/MM/DD"))
End With
RCnt = RCnt + 1
End If
の中の
StrData = Mid(Buf(Cnt), Len(VluFlg) + 1)
の部分をいづれか条件にあうものに変更してみて下さい。
'現状(CZの後全部取得) --->
StrData = Mid(Buf(Cnt), Len(VluFlg) + 1)
'現状(CZの後全部取得) <---
'CZの後3文字 --->
StrData = Mid(Buf(Cnt), Len(VluFlg) + 1, 3)
'CZの後3文字 <---
'特定文字列1から特定文字列2迄 (特定文字列含む) --->
StrData = Mid(Buf(Cnt), Len(VluFlg) + 1)
Bunri1 = "0" '------- 特定文字列1
Bunri2 = "0" '------- 特定文字列2
Fst = InStr(1, StrData, Bunri1)
Lst = InStr(Fst + 1, StrData, Bunri2)
If Fst <> 0 And Lst <> 0 Then
StrData = Mid(StrData, Fst, Lst - Fst + Len(Bunri2))
End If
'特定文字列1から特定文字列2迄 (特定文字列含む) <---
'特定文字列1から特定文字列2迄 (特定文字列含まない) --->
StrData = Mid(Buf(Cnt), Len(VluFlg) + 1)
Bunri1 = "0" '------- 特定文字列1
Bunri2 = "0" '------- 特定文字列2
Fst = InStr(1, StrData, Bunri1)
Lst = InStr(Fst + 1, StrData, Bunri2)
If Fst <> 0 And Lst <> 0 Then
StrData = Mid(StrData, Fst + Len(Bunri1), Lst - Fst - Len(Bunri1))
End If
'特定文字列1から特定文字列2迄 (特定文字列含まない)
|
|