VB6.0用掲示板の過去のログ(No.1)−VBレスキュー(花ちゃん)
[記事リスト]
[新規投稿]
[新着記事]
[ワード検索]
[過去ログ]
[管理用]
| 投稿日 | ： 2003/10/04(Sat) 13:02 |
| 投稿者 | ： LESIA |
| Ｅメール | ： |
| ＵＲＬ | ： |
| タイトル | ： 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
'データを２次元配列に読み込み
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
'２次元配列の行と列を入れ換えてデータを書き込み
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
- 関連一覧ツリー
（★ をクリックするとツリー全体を一括表示します）
- 返信フォーム
（この記事に返信する場合は下記フォームから投稿して下さい）