עבור לתוכן

קריאת מילים בשורות נפרדות בויז'ואל בייסיק 2010

Featured Replies

פורסם

היי, רציתי לדעת איך אני מסדרת את הקוד כך שהוא יוכל לקרוא לי מילה אחרי מילה (שנמצאת שורה אחרי שורה)




Private Sub CmdStart_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CmdStart.Click
ufile = New FileStream("words.txt", FileMode.Open)
Dim rfile As New StreamReader(ufile)


Dim x As Integer
Dim line As String
Do
x = rfile.Read() 'read a character by code ASCI
If x = 13 Then ' 13 and 10 codes ASCI of end line
rfile.Read() 'fr is StreamRead file variable
Exit Do
End If

line = Chr(x) 'conver character ASCI code to string

Loop




ארכיון

דיון זה הועבר לארכיון ולא ניתן להוסיף בו תגובות חדשות.

דיונים חדשים