tagCANDY CGI VBレスキュー(花ちゃん)の Visual Basic 6.0用 掲示板 [ツリー表示へ]   [Home]
一括表示(VB6.0)
タイトル配列のセット
記事No11921
投稿日: 2008/03/27(Thu) 19:09
投稿者くま
Option Explicit
Dim arr1(1 To 4, 1 To 3) As String
Dim arr2(1 To 4, 1 To 3) As String

Sub Initdata()

    arr1(1, 1) = "00"
    arr1(1, 2) = "09"
    arr1(1, 3) = "01"
    arr1(2, 1) = "09"
    arr1(2, 2) = "12"
    arr1(2, 3) = "02"
    arr1(3, 1) = "12"
    arr1(3, 2) = "15"
    arr1(3, 3) = "03"
    arr1(4, 1) = "15"
    arr1(4, 2) = "24"
    arr1(4, 3) = "04"
    
End Sub

Private Sub Command1_Click()

    Initdata

End Sub

---------------------
画面テキスト画面から入力されたデータによって配列データを作成します。

arr1のデータ (昇順)
1. 00 09 01  
2.  09 12 02
3.  12 15 03
4.  15 24 04

配列の1列目がFrom値 配列の2列目がTo値となっていて 1番目では00〜09となります。
適正な位置にデータを追加し新規の配列データを作成しますが、
元の範囲にテキストのデータが含まれる場合配列の3列目を複写します。

テキストS :08 テキストE :10 値:09と入力された時
該当位置は1行目から2行目までなりますので下記のようになります。

1. 00 08 01  
2.  08 10 09
3.  10 12 02
4.  12 15 03
5.  15 24 04

テキスト値にどんな値が来てもセットしたいのですがどうもきれいに出来ません。
いい方法を教えてください。
arr1配列の値は固定ではありません。1行目が大きい値が来る場合もあります。
その時テキスト値が小さい場合はテキスト値が1行目より前になります。
テストデータはきれいにつながってはいっていますが、つながらない場合もあります。
1.00〜08
2.10〜12というような場合09が空きです。1行で同じ値や逆転値は来ません。

[ツリー表示へ]
タイトルRe: 配列のセット
記事No11926
投稿日: 2008/03/27(Thu) 22:48
投稿者GOD
簡単にやるならFlexgridに書き出してからソートするとか。
参考資料。
_http://hanatyan.sakura.ne.jp/vbhlp/MSFlexNO4.htm

コントロールを使用せずにコードだけで実現したいなら「ソート」について調べてください。

[ツリー表示へ]