コアサーバーV2プランご契約でドメイン更新費用が永久無料

« [VB6.0] CSV����� | �ᥤ�� | [VB.NET] ���󥽡��� »

2005年10月13日

[VB6.0] CSV���ɤ߹���

Dim FileNo As Integer
Dim strLine As String
Dim strInput(1 To 5) As String

FileNo = FreeFile
Open App.Path & "\Sample.csv" For Input As #FileNo
Do While Not EOF(FileNo)

'��Ԥ��٤��ɤ߹���
Line Input #FileNo, strLine

'��Ĥ����ɤ߹���
Input #FileNo, strInput(1), strInput(2), strInput(3), strInput(4), strInput(5)

Loop
Close #FileNo

2005 / 10 / 13