VB6.0用掲示板の過去のログ(No.2)−VBレスキュー(花ちゃん)
[記事リスト] [新規投稿] [新着記事] [ワード検索] [管理用]

投稿日: 2007/03/07(Wed) 13:08
投稿者魔界の仮面弁士
Eメール
URL
タイトルRe^9: カンマ区切りのCSVファイルの読み込み

> 「コンパイルエラー 変数が必要です。」

おっと失礼。こうかな。

Dim Cols() As String
Dim rawLineText As String

  rawLineText = """2ABC,DEF,GHI"",""JKL,MNO"",""3ABC,DEG,GHI"""
  Cols = Split(rawLineText, """,""")
  If LBound(Cols) <= UBound(Cols) Then
    Cols(LBound(Cols)) = Mid(Cols(LBound(Cols)), 2)
    If Right(Cols(UBound(Cols)), 1) = """" Then
        Cols(UBound(Cols)) = Left(Cols(UBound(Cols)), Len(Cols(UBound(Cols))) - 1)
    End If
  End If


- 関連一覧ツリー (★ をクリックするとツリー全体を一括表示します)

- 返信フォーム (この記事に返信する場合は下記フォームから投稿して下さい)

- VBレスキュー(花ちゃん) - - Web Forum -