VB6.0用掲示板の過去のログ(No.1)−VBレスキュー(花ちゃん)
[記事リスト]
[新規投稿]
[新着記事]
[ワード検索]
[過去ログ]
[管理用]
| 投稿日 | ： 2003/10/03(Fri) 16:06 |
| 投稿者 | ： 初心者H君 |
| Ｅメール | ： |
| ＵＲＬ | ： |
| タイトル | ： Re^3: 書き込みのテクニック |
> > > 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
すいません例が悪かったですね...
これ以外にも行列の数が両方100のデータもあるんです...
これがわかれば他もできると思ったので例は小さな数にしたんですけど..
大きい数でも簡単にできる方法ありますか？
- 関連一覧ツリー
（★ をクリックするとツリー全体を一括表示します）
- 返信フォーム
（この記事に返信する場合は下記フォームから投稿して下さい）