VB讀檔之後限制筆數的問題

Question

以下是程式
If OUT_COUNTER = 0
Then
Open "C:\woke\溫度值2.txt" For Output As #1
Print #1, Label2.Caption
Close #1
Else
Open "C:\woke\溫度值2.txt" For Append As #1
Print #1, " " & Label2.Caption
Close #1
End If

If OUT_COUNTER < 30 Then
OUT_COUNTER = OUT_COUNTER 1
Else
OUT_COUNTER = 0
End If
===此程式輸出為========
14
14
15
14
15
14
15
16
14
15
14
15
16
========
現在問題是
我必須要停止程式，它儲存資料的動作才能停止
所以我想要限制讓它儲存10資料之後就不再儲存下去，請問該怎麼做呢

還有另一個問題
若我輸出想變成
0 14
1 14
2 15
3 14
4 15
5 14
6 15
7 16
8 14
9 15
10 14
11 15
12 16
就是第一排他是從0開始正數隨著資料有幾筆而增加數字
請問這該怎麼寫呢

謝謝!!

Answer 1

If OUT_COUNTER = 0 Then
Open "C:\woke\溫度值2.txt" For Output As #1
Print #1, CStr(OUT_COUNTER) & Label2.Caption
Close #1
ElseIf OUT_COUNTER < 10 Then
Open "C:\woke\溫度值2.txt" For Append As #1
Print #1, " " & CStr(OUT_COUNTER) & Label2.Caption
Close #1
End If

If OUT_COUNTER < 30 Then
OUT_COUNTER = OUT_COUNTER +1
Else
OUT_COUNTER = 0
End If

2005-11-19 22:30:13 補充：
判斷OUT_COUNTER的值,如果=0 前面加A=[ 如果=9 後面加 ]

Answer 2

請問..如果=9 後面加 ] 這要擺在哪個位置上呀

2005-11-23 16:57:22 補充：
我採用你那種方法之後結果發現了一點問題
讀檔的確能限制10筆資料
儲存記事本也的確會變成像
0 14
1 14
2 15
3 14
4 15
5 14
6 15
7 16
8 14
9 15
但是10筆資料存完後
記事本原本所存的資料
馬上就會清除
然後又重新再存一次
有沒有辦法能夠存完之後就固定住了
不要又清除又儲存完又清除這樣重複呢
是不是要再寫
If OUT_COUNTER = 10
然後就會停止動作呢