10-04-2015, 20:15
|
|
|
|
חבר מתאריך: 15.03.05
הודעות: 204
|
|
למען האמת אין סיבה ספציפית שבחרתי.. פשוט אני צריך ליצור תוכנה שיודעת לקרוא מסד נתונים ולהציגו בהתאם וכמובן נוחה למשתמש.
עם זאת ממבט ראשוני וויזואל בייסיק נראית שפה די קלה אבל מגוון הפונקציות הופכות אותה לדי מסובכת.
אני מצרף פה קטע קוד שלא הצלחתי ליישם אותו:
בגדול הבעיה הייתה שאם קובץ כבר קיים אז אני רוצה להוסיף לו שורות (בסוף הקובץ)
אם הוא לא קיים אז ליצור ולהכניס את השורות:
Dim cala As Integer = FreeFile()
Dim t As String
t = MonthCalendar1.SelectionRange.Start.Month.ToString & MonthCalendar1.SelectionRange.Start.Day.ToString
If File.Exists(t & ".txt") Then
File.OpenWrite(cala)
WriteLine(cala, TextBox2.Text)
WriteLine(cala, TextBox3.Text)
WriteLine(cala, TextBox4.Text)
WriteLine(cala, TextBox5.Text)
WriteLine(cala, TextBox6.Text)
WriteLine(cala, TextBox7.Text)
FileClose(cala)
Else
FileOpen(cala, t & ".txt", OpenMode.Input)
Do Until EOF(cala)
Loop
FileClose(cala)
FileOpen(cala, t & ".txt", OpenMode.Output)
PrintLine(cala, TextBox2.Text)
PrintLine(cala, TextBox3.Text)
PrintLine(cala, TextBox4.Text)
PrintLine(cala, TextBox5.Text)
PrintLine(cala, TextBox6.Text)
PrintLine(cala, TextBox7.Text)
FileClose(cala)
End If
וסתם מתוך סקרנות, עם איזו שפה היית מציע לי לעבוד?
שוב תודה רבה!
_____________________________________
Your signature did not follow Fresh's signatures policy, therefore it was automatically erased. Please see the E-Mail which has been sent to you, to learn how to fix this.
|