Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


56996 / 76732 ←次へ | 前へ→

【24477】Re:データ変換について
回答  kazu  - 05/4/22(金) 18:10 -

引用なし
パスワード
   今日はちょっと時間が無いんで一応これで出来ればこれで・・・。
条件が違う場合はどなたかがサポートしてくれると思います。


---> から <--- 迄がひとつの構文になります。


  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迄 (特定文字列含まない) 
1 hits

【24414】データ変換について 初心者 05/4/21(木) 19:58 質問
【24418】Re:データ変換について kazu 05/4/21(木) 20:56 発言
【24455】Re:データ変換について 初心者 05/4/22(金) 14:15 質問
【24476】Re:データ変換について kazu 05/4/22(金) 17:24 回答
【24477】Re:データ変換について kazu 05/4/22(金) 18:10 回答
【24478】Re:データ変換について 初心者 05/4/22(金) 19:50 お礼

56996 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free