作者: hugo洛 時間: 2013-10-23 22:05 標題: 學生project...Visual Basic一問 真心求救/_\
本帖最後由 hugo洛 於 2013-10-27 17:16 編輯
小弟用window form
要將一個記事本既內容 放入去
d內容有分 班別 學號 人名 用逗號分開
6a,10,陳大文 <--咁樣
e+就希望可以比人淨係打個班別學號 而人名就係textbox自動顯示出黎
我諗左好耐 都係唔知點樣可以將記事本既內容變做陣列...
我呀sir 教我用 x = infile.readline.Split(",")
ListBox1.Items.Add("Class = " & x(1))
咁印野出黎....
但我試黎試去 都只係印到一行....就係 6a,10,陳大文果行
之後果d 6a,11,陳中文
6a,12,陳小文
就印唔到
同埋變唔到陣列都係用唔到對分檢索,線性檢索果d方法
-------------------------------------------------------------------------------------------------------------
有第二個問題... 第二個問題唔關份project事 純粹好奇想知答案
Sub Main()
Randomize()
Dim rn As Integer
Dim n1, n2, n3 As String
rn = Int(Rnd() * 10 + 1)
Console.WriteLine(rn)
If rn <= 2 Then
n2 = "Tim"
ElseIf rn = 3 Then
n2 = "Hugo"
ElseIf rn = 4 Or 5 Then
n2 = "Wong"
ElseIf rn = 6 Or 7 Then
n2 = "D"
ElseIf rn = 8 Or 9 Then
n2 = "B"
Else
n2 = "Q"
End If
Console.WriteLine(n2)
End Sub
點解就算rn 係 6,7,8,9,10 都好
都會卡係個wong到? 我唔明用or有咩錯
作者: 55665 時間: 2013-10-23 22:21
用loop.........
作者: hugo洛 時間: 2013-10-23 22:29
用loop.........
55665 發表於 2013-10-23 22:21
我目的唔係淨係印哂出黎
係希望可以淨係靠班別學號就自動搵埋個名出黎...
不過都唔該哂ching
起碼我都有d進展...作者: KinChungE 時間: 2013-10-23 23:16
我目的唔係淨係印哂出黎
係希望可以淨係靠班別學號就自動搵埋個名出黎...
不過都唔該哂ching ...
hugo洛 發表於 2013-10-23 22:29
for loop哂成個array
array入面用if
作者: shingzhk 時間: 2013-10-23 23:29
先將你要做既野分開諗做function, 逐part 都證到自己識寫先砌埋吧
一般黎講:
首先read哂成個txt 做array, 直接搵個text BOX show 返confirm 自己冇入錯位
寫個loop, 掃哂成個array, 搵到的話return axis
用return 返黎既axis 放入name array, get name => 收工
作者: hugo洛 時間: 2013-10-24 20:36
for loop哂成個array
array入面用if
KinChungE 發表於 2013-10-23 23:16
我用平時教整ARRAY既方法用落記事本度...
佢有話我error
[attach]1596733[/attach][attach]1596733[/attach]
作者: gh0st 時間: 2013-10-24 20:46
本帖最後由 gh0st 於 2013-10-24 21:27 編輯
Dim mystr As String
Dim str1(2) As String
TextBox1.Text = "沒有找到相關資料!"
FileOpen(1, "C:\data.txt", OpenMode.Input)
Do Until EOF(1)
mystr = LineInput(1)
str1 = Split(mystr, ",")
If str1(0) = TextBox2.Text And str1(1) = TextBox3.Text Then TextBox1.Text = str1(2)
Loop
FileClose()
咁樣?
textbox1 = result
textbox2 = 要搵既class
textbox3 = 要搵既class no.
作者: hugo洛 時間: 2013-10-24 20:54
Dim mystr As String
Dim line As Integer = 0
Dim str1(2) As String
TextBox1.T ...
gh0st 發表於 2013-10-24 20:46
好勁/口\
我就係想咁做... 但係真係太複雜.
好多語法都未見過又未教過...我都係放棄咁做啦= =
不過真係唔該哂你
作者: gh0st 時間: 2013-10-24 20:59
回復 8# hugo洛
你將佢放曬入db咪易搞
直接用SQL查詢就可以拎到data出黎
作者: hugo洛 時間: 2013-10-24 21:15
回復 hugo洛
你將佢放曬入db咪易搞
直接用SQL查詢就可以拎到data出黎
gh0st 發表於 2013-10-24 20:59
完全唔知咩黎
我自己諗下方法算.....諗唔到即係代表我能力問題了...
想唔服輸都唔得
唔該你作者: gh0st 時間: 2013-10-24 21:32
回復 10# hugo洛
Dim mystr As String
Dim str1(2) As String
TextBox1.Text = "沒有找到相關資料!"
FileOpen(1, "C:\data.txt", OpenMode.Input) '打開data.txt
Do Until EOF(1)'開始循環執行下面既code
mystr = LineInput(1)'逐行讀
str1 = Split(mystr, ",")'讀到之後以逗號分割mystr的字串儲存到str1
If str1(0) = TextBox2.Text And str1(1) = TextBox3.Text Then TextBox1.Text = str1(2) '判斷數據如果同讀到既相同就顯示
Loop
FileClose()'關閉data.txt
加左d註釋睇下明唔明
作者: hugo洛 時間: 2013-10-24 21:50
回復 hugo洛
Dim mystr As String
Dim str1(2) As String
TextBox1.Text = "沒有 ...
gh0st 發表於 2013-10-24 21:32
EOF(1) 係咩黎
?點解會係括號1既作者: gh0st 時間: 2013-10-24 21:52
回復 12# hugo洛
http://msdn.microsoft.com/zh-tw/library/7ct2yy4s(v=vs.90).aspx
其實如果你唔明d函數可以參考MSDN
作者: hugo洛 時間: 2013-10-24 22:26
回復 hugo洛
(v=vs.90).aspx
其實如果你唔明d函數可以參考MSDN
gh0st 發表於 2013-10-24 21:52
明白多了.. 唔該哂
作者: hugo洛 時間: 2013-10-27 13:33
本帖最後由 hugo洛 於 2013-10-27 14:23 編輯
回復 hugo洛
Dim mystr As String
Dim str1(2) As String
TextBox1.Text = "沒有 ...
gh0st 發表於 2013-10-24 21:32
我想問下...如果 我用黎輸入既唔係textbox....即係combo box 做法係咪一樣...?
Do Until EOF(1)
mystr = LineInput(1)
str1 = Split(mystr, ",")
If str1(0) = ComboBox1.Items(0).ToString And str1(1) = ComboBox4.Items(0).ToString Then
TextBox1.Text = str1(2)
End If
Loop
FileClose()
我咁樣做既話....佢無論點都係搵唔到...
------------------------------------------------------------------------------------------------------------------------------
後記 : 我解決到啦 用SelectedItem 就得左:)
果然自己解決先最有成功感
作者: tonyli1212 時間: 2013-11-4 23:14
本帖最後由 tonyli1212 於 2013-11-4 23:15 編輯
ElseIf rn = 4 Or rn = 5 Then
n2 = "Wong"
ElseIf rn = 6 Or rn = 7 Then
n2 = "D"
ElseIf rn = 8 Or rn = 9 Then
n2 = "B"
作者: gh0st 時間: 2013-11-5 17:23
樓上已經俾左答案你
Or唔係咁用
Or後面都要跟翻你個變數
a = 1 or a= 2
唔可以就咁a=1 or 2 佢係唔識判斷的