tagCANDY CGI VBレスキュー(花ちゃん)の Visual Basic 6.0用 掲示板
VBレスキュー(花ちゃん)の Visual Basic 6.0用 掲示板
[ツリー表示へ]  [ワード検索]  [Home]

タイトル 配列のセット
投稿日: 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行で同じ値や逆転値は来ません。

- 関連一覧ツリー をクリックするとツリー全体を一括表示します)

古いスレッドにレスはつけられません。