VB6.0用掲示板の過去のログ(No.1)−VBレスキュー(花ちゃん)
[記事リスト]
[新規投稿]
[新着記事]
[ワード検索]
[過去ログ]
[管理用]
| 投稿日 | ： 2003/10/03(Fri) 15:53 |
| 投稿者 | ： nobu |
| Ｅメール | ： |
| ＵＲＬ | ： |
| タイトル | ： Re^2: 書き込みのテクニック |
> > 1,2,3,4,5
> > 6,7,8,9,10
> > 11,12,13,14,15 という5行3列のデータを読みこんで
> > 1 6 11
> > 2 7 12
> > 3 8 13
> > 4 9 14
> > 5 10 16 という3行5列に変更して書き込むということをやっているのですが
余り良いサンプルとは言えませんが下記ではどうですか？
Dim tmp1 As String
Dim tmp2 As String
Dim tmp3 As String
Dim dat1() As String
Dim dat2() As String
Dim dat3() As String
Dim fNo As Integer
Dim j As Integer
tmp1 = "1,2,3,4,5"
tmp2 = "6,7,8,9,10"
tmp3 = "11,12,13,14,15"
dat1 = Split(tmp1, ",")
dat2 = Split(tmp2, ",")
dat3 = Split(tmp3, ",")
fNo = FreeFile
Open "C:\test.txt" For Output As #fNo
For j = 0 To 4
Print #fNo, dat1(j) & " " & dat2(j) & " " & dat3(j)
Next j
Close #fNo
- 関連一覧ツリー
（★ をクリックするとツリー全体を一括表示します）
- 返信フォーム
（この記事に返信する場合は下記フォームから投稿して下さい）