Excel VBA質問箱 IV

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

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


19436 / 76732 ←次へ | 前へ→

【62727】Re:CSVファイルの文字列をカンマで分割する方法
発言  kanabun  - 09/8/26(水) 9:29 -

引用なし
パスワード
   ▼ネココ さん:

>■CSVファイルの例
>3,4,5,6,名古屋,0123,1

>左から6コ目の4桁の数字を1桁ずつカンマで区切る方法を教えて下さい。

>Line Input #1, CSVData の後に加工ができれば、と思っています。

  Dim CSVData As String
  Dim dat
  Dim dt(1 To 4) As String
  Dim ss As String
  
  'Line Input #1, CSVData      '一行読み込む
  CSVData = "3,4,5,6,名古屋,0123,1" '<--- 読み込んだ文字列(テスト用)
  Debug.Print CSVData
  
  dat = Split(CSVData, ",")
  '左から6コ目の4桁の数字を1桁ずつカンマで区切る
  ss = dat(5)  '<--------- 左から6コ目のデータ
  dt(1) = Mid$(ss, 1, 1)
  dt(2) = Mid$(ss, 2, 1)
  dt(3) = Mid$(ss, 3, 1)
  dt(4) = Mid$(ss, 4)
  dat(5) = Join(dt, ",")
  CSVData = Join(dat, ",") '編集後のCSVData
  Debug.Print CSVData

1 hits

【62726】CSVファイルの文字列をカンマで分割する方法 ネココ 09/8/26(水) 7:17 質問
【62727】Re:CSVファイルの文字列をカンマで分割する... kanabun 09/8/26(水) 9:29 発言
【62738】ありがとうございました!!! ネココ 09/8/26(水) 20:05 お礼

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