[VB6 ] 一些關於文字讀取的問題((有更新))

看板Visual_Basic作者 (長孫轍)時間16年前 (2009/10/29 13:11), 編輯推噓1(104)
留言5則, 2人參與, 最新討論串1/2 (看更多)
有個題目是說: 輸入說明: 由標準輸入(鍵盤)輸入。第一航有一個正整數N,3<=N<=100,表示共有N個選手參加比賽。 接下來的N行,依序表示1~N位選手的成績。 每個選手將有六個成績,分數範圍為0~100的整數表示,分別是六個題目得分, 彼此以控格分開。你可以假設前三名都只有唯一依各。 輸出說明: 輸出一行到螢幕上。依序為冠、亞、季軍的編號。並以空白隔開。 範例輸入: 5 10 0 30 0 40 0 80 40 10 20 30 100 10 0 0 0 0 0 10 70 20 40 80 10 100 30 50 70 60 80 範例輸出: 5 2 4 ▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓ 以上是題目,程式是大致寫出來, 但讀取方式可能跟題目本意不同, 想知道如何在text1.text輸入範例輸入的文字之後, 並且可以讀取內容物。 我現在的方式是先建立在D槽一個txt文件, 用讀取文件的方式,輸出也是以txt文件輸出, 但感覺於題目本意無關, 想請各位指教一下。 -- ※ 發信站: 批踢踢實業坊(ptt.cc) ◆ From: 163.24.167.226

10/29 13:29, , 1F
聽不懂。
10/29 13:29, 1F

10/29 15:58, , 2F
我也不太懂 所以我用猜的...Text1.MultiLine=True
10/29 15:58, 2F

10/29 15:59, , 3F
這樣就可以多行輸入
10/29 15:59, 3F

10/29 15:59, , 4F
接下來就一行一行處理 和記事本差不多啦
10/29 15:59, 4F

10/29 16:24, , 5F
這一猜怎麼突然有很清爽的感覺 XD
10/29 16:24, 5F
對於Text1.Multiline=True這邊,我已經能夠讓一個Text1.text能夠多行輸入, 但問題在於:讀取方面,我不知道要如何像TXT一般讀取, ----------------------------------------------------------- 在TXT文件裡面,讀取方式為: 假設0.txt為文件,並且在D槽內。 ---- Open "D:\0.txt" for input as #1 '像這樣,之後使用 Do while not Eof(1) open #1,n1,n2 Loop ▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓ 像這樣的讀取方式,但是在Text中, 我不知道要如何讀取QAQ。 意思就是:我會讀取Txt內的數字, 但是不會讀取Text內的資料。 ※ 編輯: Changsunche 來自: 125.228.105.94 (10/29 21:15)
文章代碼(AID): #1AwIGP2X (Visual_Basic)
文章代碼(AID): #1AwIGP2X (Visual_Basic)