#68 Article 8472 Posted at 1995/10/23 02:59:55 by 鳥坂(細川)司 (MAP703) [VB]
Subject: ＶＢ-ＤＯＳですが・・・。
>csv形式のテキストファイルを扱いたいのですが
LINE INPUT で読んでから分解するのが最も簡単です。
以下はＶＢ－ＤＯＳで記述されたサンプルです。
パラメータを適当にいじって、プロシージャとして使ってみてください。
１レコードが６ボリューム（フィールド）で構成されたファイルを想定しています。
例）
Vol1 , Vol2 , Vol3 , Vol4 , Vol5 , Vol6
実はＶＢ使い
とりり
-------------------------------------------------------------------------
VolMax = 6
DIM Sep(VolMax)
FileName$ = "SAMPLE.DAT"
PathName$ = "A:\"
Sample = FREEFILE
OPEN PathName$ + FileName$ FOR INPUT AS Sample
DO
SamLine = SamLine + 1
LINE INPUT #Sample, OneLine$
FOR I = 1 TO VolMax
Sep(I) = INSTR(Sep(I - 1) + 1, OneLine$, ",")
IF Sep(I) = 0 THEN
Sep(I) = LEN(OneLine$) + 1
END IF
NEXT I
FOR I = 1 TO VolMax
REM SampleDat$(SamLine, I) = MID$(OneLine$, Sep(I) + 1, Sep(I) - Sep(I - 1) - 1)
PRINT MID$(OneLine$, Sep(I - 1) + 1, Sep(I) - Sep(I - 1) - 1)
NEXT I
DO
LOOP UNTIL INKEY$ <> ""
LOOP UNTIL EOF(Sample)
CLOSE Sample
------------------------------------------------------------------