נושא: עזרה בVb.net - דחוף.......

נשלח בתאריך: 29 November 2011 בשעה 13:58 | IP רשוּם

הי.

בניתי מחולל לעורך html. ב Vb.net

בעורך אני נותנת אפשרות של פתיחת מתבנית. (אלו תבניות html בעברית שהורדתי מהאינטרנט) .

כשאני עוברת שורה שורה על הקוד של התבנית שאני פותחת .וכותבת אותו בעורך ..... הוא נכתב לי כג'בריש....

מצורף פה חלק מהקוד..

תודה!!!!

    Dim r As FileStream 'משתנה עבור קריאה לקובץ

        r = File.OpenRead("I:\Tavniot\" & tname) ' פתיחת קובץ שנבחר ע"י המשתמש

        strFileName = "I:\Tavniot\" & tname 'משתנה מחרוזת הקולט את שם הקובץ הנבחר

        rtb1.Clear()

        k = 0

        Do Until k = -1 'מעבר בלולאה עבור תו תו בטקסט הקובץ לצורך קריאת עברית

            k = r.ReadByte

            If k > -1 Then

                rtb2.Text &= Chr(k)

            End If

        Loop

        r.Close()