投稿日 | : 2003/10/04(Sat) 13:02 |
投稿者 | : LESIA |
Eメール | : |
URL | : |
タイトル | : Re^6: 書き込みのテクニック |
試してないけど、行と列の数に関係なくやるならこんな感じかな。
Dim iFileNo As Integer
Dim i As Integer
Dim j As Integer
Dim strData() As String
Dim strTemp() As String
'行数と列数を取得
i = 0
iFileNo = FreeFile
Open "C:\SrcText.txt" For Input As #iFileNo
Do Until EOF(iFileNo)
Line Input #iFileNo, strBuffer
strData = Split(strBuffer, ",")
i = i + 1
j = UBound(strData) - LBound(strData) + 1
Loop
Close #iFileNo
'データを2次元配列に読み込み
ReDim strData(i - 1, j - 1)
FileNo = FreeFile
Open "C:\SrcText.txt" For Input As #iFileNo
For i = LBound(strData, 1) To UBound(strData, 1)
Line Input #iFileNo, strBuffer
strTemp = Split(strBuffer, ",")
For j = LBound(strData, 2) To UBound(strData, 2)
strData(i, j) = strTemp(j)
Next j
Next i
Close #iFileNo
'2次元配列の行と列を入れ換えてデータを書き込み
ReDim strTemp(UBound(strData, 1))
iFileNo = FreeFile
Open "C:\DstText.txt" For Output As #iFileNo
For j = LBound(strData, 2) To UBound(strData, 2)
For i = LBound(strData, 1) To UBound(strData, 1)
strTemp(i) = strData(i, j)
Next i
Print #iFileNo, Join(strTemp, ",")
Next j
Close #iFileNo