منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

السلام عليكم

لديه مشروع قراءة وتعديل رقم شاصي السيارات

الكود عندي يرسل رمز لكمبيوتر السياره " 0902 "
ومن ثم يكون الرد من الكمبيوتر ما هو رقم الشاصي

الرد يكون bytes

0902
014
0: 49 02 01 33 47 54
1: 4E 39 39 45 46 30 4B
2: 47 32 32 38 34 39 34

واذا اغير من
bytes
الي
string

يطلغ لي الرقم كامل
3GTN99EF0KG228494

ولكن مع الكود الموجود عندي يطلع فقط نص الارقام

N99EF0K

[attachment=29050]

PHP كود :

   Private Sub ButtonVID_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles ButtonVID.Click
        On Error Resume Next
        Dim abData() As Byte
        Dim Str As String

        Dim txt As String = ""
        sp1.Write("0902" & vbCr)
        inPort = sp1.ReadTo(">")
        If inPort = "" Then Exit Sub
        For i = 0 To 3
            txt &= ChrW(Convert.ToInt32(Mid(inPort, 19 + i * 3, 2), 16))
        Next
        For i = 0 To 6
            txt &= ChrW(Convert.ToInt32(Mid(inPort, 36 + i * 3, 2), 16))
        Next
        For i = 0 To 6
            txt &= ChrW(Convert.ToInt32(Mid(inPort, 59 + i * 3, 2), 16))
        Next

        TextVID.Text = txt
        rtb()
    End Sub


   Private Sub rtb()
        buf = 0
        buf = rtb1.Text + inPort
        rtb1.Text = buf
    End Sub 

ان شاءالله احصل على حسل بارك الله فيكم

وشكرا

وممكن حد يحل لي هذه المشكله

[attachment=29051]

System.FormatException: 'Could not find any recognizable digits.'

(24-06-23, 12:54 AM)dubai.eig كتب : [ -> ]السلام عليكم

لديه مشروع قراءة وتعديل رقم شاصي السيارات

الكود عندي يرسل رمز لكمبيوتر السياره " 0902 "
ومن ثم يكون الرد من الكمبيوتر ما هو رقم الشاصي

الرد يكون bytes

0902
014
0: 49 02 01 33 47 54
1: 4E 39 39 45 46 30 4B
2: 47 32 32 38 34 39 34

واذا اغير من
bytes
الي
string

يطلغ لي الرقم كامل
3GTN99EF0KG228494

ولكن مع الكود الموجود عندي يطلع فقط نص الارقام

N99EF0K

PHP كود :

   Private Sub ButtonVID_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles ButtonVID.Click         On Error Resume Next         Dim abData() As Byte         Dim Str As String         Dim txt As String = ""         sp1.Write("0902" & vbCr)         inPort = sp1.ReadTo(">")         If inPort = "" Then Exit Sub         For i = 0 To 3             txt &= ChrW(Convert.ToInt32(Mid(inPort, 19 + i * 3, 2), 16))         Next         For i = 0 To 6             txt &= ChrW(Convert.ToInt32(Mid(inPort, 36 + i * 3, 2), 16))         Next         For i = 0 To 6             txt &= ChrW(Convert.ToInt32(Mid(inPort, 59 + i * 3, 2), 16))         Next         TextVID.Text = txt         rtb()     End Sub    Private Sub rtb()         buf = 0         buf = rtb1.Text + inPort         rtb1.Text = buf     End Sub

ان شاءالله احصل على حسل بارك الله فيكم

وشكرا

تعديل

PHP كود :

   Private Sub ButtonVID_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles ButtonVID.Click
        On Error Resume Next
        Dim abData() As Byte
        Dim Str As String

        Dim txt As String = ""
        sp1.Write("0902" & vbCr)
        inPort = sp1.ReadTo(">")
        If inPort = "" Then Exit Sub
        For i = 0 To 2
            txt &= ChrW(Convert.ToInt32(Mid(inPort, 21 + i * 3, 2), 16))
        Next
        For i = 0 To 6
            txt &= ChrW(Convert.ToInt32(Mid(inPort, 33 + i * 3, 2), 16))
        Next
        For i = 0 To 6
            txt &= ChrW(Convert.ToInt32(Mid(inPort, 58 + i * 3, 2), 16))
        Next

        TextVID.Text = txt
        rtb()
    End Sub


   Private Sub rtb()
        buf = 0
        buf = rtb1.Text + inPort
        rtb1.Text = buf
    End Sub 

شكرا لك

ولكن

(24-06-23, 04:14 AM)joly كتب : [ -> ]
(24-06-23, 12:54 AM)dubai.eig كتب : [ -> ]السلام عليكم

لديه مشروع قراءة وتعديل رقم شاصي السيارات

الكود عندي يرسل رمز لكمبيوتر السياره " 0902 "
ومن ثم يكون الرد من الكمبيوتر ما هو رقم الشاصي

الرد يكون bytes

0902
014
0: 49 02 01 33 47 54
1: 4E 39 39 45 46 30 4B
2: 47 32 32 38 34 39 34

واذا اغير من
bytes
الي
string

يطلغ لي الرقم كامل
3GTN99EF0KG228494

ولكن مع الكود الموجود عندي يطلع فقط نص الارقام

N99EF0K

PHP كود :

   Private Sub ButtonVID_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles ButtonVID.Click         On Error Resume Next         Dim abData() As Byte         Dim Str As String         Dim txt As String = ""         sp1.Write("0902" & vbCr)         inPort = sp1.ReadTo(">")         If inPort = "" Then Exit Sub         For i = 0 To 3             txt &= ChrW(Convert.ToInt32(Mid(inPort, 19 + i * 3, 2), 16))         Next         For i = 0 To 6             txt &= ChrW(Convert.ToInt32(Mid(inPort, 36 + i * 3, 2), 16))         Next         For i = 0 To 6             txt &= ChrW(Convert.ToInt32(Mid(inPort, 59 + i * 3, 2), 16))         Next         TextVID.Text = txt         rtb()     End Sub    Private Sub rtb()         buf = 0         buf = rtb1.Text + inPort         rtb1.Text = buf     End Sub

ان شاءالله احصل على حسل بارك الله فيكم

وشكرا

تعديل

PHP كود :

   Private Sub ButtonVID_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles ButtonVID.Click         On Error Resume Next         Dim abData() As Byte         Dim Str As String         Dim txt As String = ""         sp1.Write("0902" & vbCr)         inPort = sp1.ReadTo(">")         If inPort = "" Then Exit Sub         For i = 0 To 2             txt &= ChrW(Convert.ToInt32(Mid(inPort, 21 + i * 3, 2), 16))         Next         For i = 0 To 6             txt &= ChrW(Convert.ToInt32(Mid(inPort, 33 + i * 3, 2), 16))         Next         For i = 0 To 6             txt &= ChrW(Convert.ToInt32(Mid(inPort, 58 + i * 3, 2), 16))         Next         TextVID.Text = txt         rtb()     End Sub    Private Sub rtb()         buf = 0         buf = rtb1.Text + inPort         rtb1.Text = buf     End Sub

شكرا لك
ولكن لازالت الارقام ناقصه

المفروض
3GTN99EF0KG228494

والي طلع بعد التعديل
N99EF0G22849

ولكن السؤال الان كيف احول الارقام
bytes
47 32 32 38 34 39 34

الي
string
G228494

اريد كود التحويل وشكرا

(24-06-23, 11:34 AM)dubai.eig كتب : [ -> ]شكرا لك
ولكن لازالت الارقام ناقصه

المفروض
3GTN99EF0KG228494

والي طلع بعد التعديل
N99EF0G22849

ولكن السؤال الان كيف احول الارقام
bytes
47 32 32 38 34 39 34

الي
string
G228494

اريد كود التحويل وشكرا

انا طلع عندي 3GTN99EF0KG228494
لكن يمكن النص غير مطابق مع النص الحقيقي عندك
نفذ هذا الكود لحفظ الرد كما هو في ملف ثم ارفق الملف file.txt

PHP كود :

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    sp1.Write("0902" & vbCr)
    Dim r = sp1.ReadTo(">")
    IO.File.WriteAllText("file.txt", r)
End Sub 

بالنسبه للسؤال الثاني
هذا كود التحويل على اساس string وطلع عندي G228494

PHP كود :

Dim b = "47 32 32 38 34 39 34"
Dim a As New System.Text.StringBuilder
For Each p As String In b.Split(" ")
    a.Append(Chr(Convert.ToInt32(p, 16)))
Next
Dim s = a.ToString
MsgBox(s) 

(24-06-23, 07:05 PM)سعود كتب : [ -> ]ماذا عن الدالتين التاليتين؟:

PHP كود :

Private Function UnicodeStringToBytes( ByVal str As String) As Byte() Return System.Text.Encoding.Unicode.GetBytes(str) End Function Private Function UnicodeBytesToString( ByVal bytes() As Byte) As String Return System.Text.Encoding.Unicode.GetString(bytes) End Function

تسلم على الكود ولكن السؤال في الاستخدام هل ينفع يكون
UnicodeBytesToString(33 47 54)
؟

وشكرا لك

(24-06-23, 07:15 PM)joly كتب : [ -> ]
(24-06-23, 11:34 AM)dubai.eig كتب : [ -> ]شكرا لك
ولكن لازالت الارقام ناقصه

المفروض
3GTN99EF0KG228494

والي طلع بعد التعديل
N99EF0G22849

ولكن السؤال الان كيف احول الارقام
bytes
47 32 32 38 34 39 34

الي
string
G228494

اريد كود التحويل وشكرا

انا طلع عندي 3GTN99EF0KG228494
لكن يمكن النص غير مطابق مع النص الحقيقي عندك
نفذ هذا الكود لحفظ الرد كما هو في ملف ثم ارفق الملف file.txt

PHP كود :

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click sp1.Write("0902" & vbCr) Dim r = sp1.ReadTo(">") IO.File.WriteAllText("file.txt", r) End Sub

بالنسبه للسؤال الثاني
هذا كود التحويل على اساس string وطلع عندي G228494

PHP كود :

Dim b = "47 32 32 38 34 39 34" Dim a As New System.Text.StringBuilder For Each p As String In b.Split(" ") a.Append(Chr(Convert.ToInt32(p, 16))) Next Dim s = a.ToString MsgBox(s)

شكرا لك عزيزي

الحمدالله ضبط معاي

قمت بتغيير الكود التالي

كود :

       If inPort = "" Then Exit Sub

        For i = 0 To 2

            txt &= ChrW(Convert.ToInt32(Mid(inPort, 30 + i * 3, 2), 16))

        Next

        For i = 0 To 6

            txt &= ChrW(Convert.ToInt32(Mid(inPort, 33 + i * 3, 2), 16))

        Next

        For i = 0 To 6

            txt &= ChrW(Convert.ToInt32(Mid(inPort, 58 + i * 3, 2), 16))

        Next

بهذا الكود

كود :

       Dim abData() As Byte

        Dim Str As String

        Dim txt As String = ""

        sp1.Write("0902" & vbCr)

        inPort = sp1.ReadTo(">")

        ''0902

        ''014 

        ''0: 49 02 01 33 47 54 

        ''1: 4E 39 39 45 46 30 4B 

        ''2: 47 32 32 38 34 39 34 

        getvin1 = After(inPort, "0:")

        getvin2 = After(inPort, "1:")

        getvin3 = After(inPort, "2:")

        vin1 = getvin1.Substring(9, 10).Trim

        vin2 = getvin2.Substring(0, 22).Trim

        vin3 = getvin3.Substring(0, 22).Trim

        Dim b = vin1 & Space(8) & vin2 & Space(8) & vin3

        Dim a As New System.Text.StringBuilder

        For Each p As String In b.Split(" ")

            a.Append(Chr(Convert.ToInt32(p, 16)))

        Next

        Dim s = a.ToString

        MsgBox(s)

واشتغل معاي وطلع الرقم كامل

ولكن عند الغاء تفعيل

كود :

On Error Resume Next

يطلع لي مسج غلط

[attachment=29053]

ولكن مع تفعيل

كود :

On Error Resume Next

لا يوجد اي غلط ويطلع معاي الرقم الحمدالله

اشكرك شكرا على وقتك ومجهودك

الان احاول اشتغل على الكتابه في حالت اريد تغيير رقم الشاصي الى رقم ثاني واذا واجهتني اي مشكله ساكتبها هنا

شكرا

(24-06-23, 08:11 PM)joly كتب : [ -> ]نفذ هذا الكود لحفظ الرد من الكمبيوتر كما هو في ملف ثم ارفق الملف file.txt لان الحل يعتمد على الرد الصحيح

PHP كود :

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click sp1.Write("0902" & vbCr) Dim r = sp1.ReadTo(">") IO.File.WriteAllText("file.txt", r) End Sub

هذا الي طلع

0902
014
0: 49 02 01 33 47 54
1: 4E 39 39 45 46 30 4B
2: 47 32 32 38 34 39 34

[attachment=29054]

(24-06-23, 08:22 PM)dubai.eig كتب : [ -> ]
(24-06-23, 07:15 PM)joly كتب : [ -> ]
(24-06-23, 11:34 AM)dubai.eig كتب : [ -> ]شكرا لك
ولكن لازالت الارقام ناقصه

المفروض
3GTN99EF0KG228494

والي طلع بعد التعديل
N99EF0G22849

ولكن السؤال الان كيف احول الارقام
bytes
47 32 32 38 34 39 34

الي
string
G228494

اريد كود التحويل وشكرا

انا طلع عندي 3GTN99EF0KG228494
لكن يمكن النص غير مطابق مع النص الحقيقي عندك
نفذ هذا الكود لحفظ الرد كما هو في ملف ثم ارفق الملف file.txt

PHP كود :

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click sp1.Write("0902" & vbCr) Dim r = sp1.ReadTo(">") IO.File.WriteAllText("file.txt", r) End Sub

بالنسبه للسؤال الثاني
هذا كود التحويل على اساس string وطلع عندي G228494

PHP كود :

Dim b = "47 32 32 38 34 39 34" Dim a As New System.Text.StringBuilder For Each p As String In b.Split(" ") a.Append(Chr(Convert.ToInt32(p, 16))) Next Dim s = a.ToString MsgBox(s)

شكرا لك عزيزي

الحمدالله ضبط معاي

قمت بتغيير الكود التالي

كود :

If inPort = "" Then Exit Sub For i = 0 To 2 txt &= ChrW(Convert.ToInt32(Mid(inPort, 30 + i * 3, 2), 16)) Next For i = 0 To 6 txt &= ChrW(Convert.ToInt32(Mid(inPort, 33 + i * 3, 2), 16)) Next For i = 0 To 6 txt &= ChrW(Convert.ToInt32(Mid(inPort, 58 + i * 3, 2), 16)) Next

بهذا الكود

كود :

Dim abData() As Byte Dim Str As String Dim txt As String = "" sp1.Write("0902" & vbCr) inPort = sp1.ReadTo(">") ''0902 ''014 ''0: 49 02 01 33 47 54 ''1: 4E 39 39 45 46 30 4B ''2: 47 32 32 38 34 39 34 getvin1 = After(inPort, "0:") getvin2 = After(inPort, "1:") getvin3 = After(inPort, "2:") vin1 = getvin1.Substring(9, 10).Trim vin2 = getvin2.Substring(0, 22).Trim vin3 = getvin3.Substring(0, 22).Trim Dim b = vin1 & Space(8) & vin2 & Space(8) & vin3 Dim a As New System.Text.StringBuilder For Each p As String In b.Split(" ") a.Append(Chr(Convert.ToInt32(p, 16))) Next Dim s = a.ToString MsgBox(s)

واشتغل معاي وطلع الرقم كامل

ولكن عند الغاء تفعيل

كود :

On Error Resume Next

يطلع لي مسج غلط

ولكن مع تفعيل

كود :

On Error Resume Next

لا يوجد اي غلط ويطلع معاي الرقم الحمدالله

اشكرك شكرا على وقتك ومجهودك

الان احاول اشتغل على الكتابه في حالت اريد تغيير رقم الشاصي الى رقم ثاني واذا واجهتني اي مشكله ساكتبها هنا

شكرا

اذا كنت تعتمد هذا المشروع في العمل (في الوظيفة)
فاحذر من من استخدام On Error Resume Next
لانها تمنع عنك معرفةالخطأ فتكون النتيجة خطأ وأنت لا تدري
فتقع في حرج مع رؤسائك

بالتوفيق

(24-06-23, 08:29 PM)joly كتب : [ -> ]
(24-06-23, 08:22 PM)dubai.eig كتب : [ -> ]
(24-06-23, 07:15 PM)joly كتب : [ -> ]
(24-06-23, 11:34 AM)dubai.eig كتب : [ -> ]شكرا لك
ولكن لازالت الارقام ناقصه

المفروض
3GTN99EF0KG228494

والي طلع بعد التعديل
N99EF0G22849

ولكن السؤال الان كيف احول الارقام
bytes
47 32 32 38 34 39 34

الي
string
G228494

اريد كود التحويل وشكرا

انا طلع عندي 3GTN99EF0KG228494
لكن يمكن النص غير مطابق مع النص الحقيقي عندك
نفذ هذا الكود لحفظ الرد كما هو في ملف ثم ارفق الملف file.txt

PHP كود :

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click sp1.Write("0902" & vbCr) Dim r = sp1.ReadTo(">") IO.File.WriteAllText("file.txt", r) End Sub

بالنسبه للسؤال الثاني
هذا كود التحويل على اساس string وطلع عندي G228494

PHP كود :

Dim b = "47 32 32 38 34 39 34" Dim a As New System.Text.StringBuilder For Each p As String In b.Split(" ") a.Append(Chr(Convert.ToInt32(p, 16))) Next Dim s = a.ToString MsgBox(s)

شكرا لك عزيزي

الحمدالله ضبط معاي

قمت بتغيير الكود التالي

كود :

If inPort = "" Then Exit Sub For i = 0 To 2 txt &= ChrW(Convert.ToInt32(Mid(inPort, 30 + i * 3, 2), 16)) Next For i = 0 To 6 txt &= ChrW(Convert.ToInt32(Mid(inPort, 33 + i * 3, 2), 16)) Next For i = 0 To 6 txt &= ChrW(Convert.ToInt32(Mid(inPort, 58 + i * 3, 2), 16)) Next

بهذا الكود

كود :

Dim abData() As Byte Dim Str As String Dim txt As String = "" sp1.Write("0902" & vbCr) inPort = sp1.ReadTo(">") ''0902 ''014 ''0: 49 02 01 33 47 54 ''1: 4E 39 39 45 46 30 4B ''2: 47 32 32 38 34 39 34 getvin1 = After(inPort, "0:") getvin2 = After(inPort, "1:") getvin3 = After(inPort, "2:") vin1 = getvin1.Substring(9, 10).Trim vin2 = getvin2.Substring(0, 22).Trim vin3 = getvin3.Substring(0, 22).Trim Dim b = vin1 & Space(8) & vin2 & Space(8) & vin3 Dim a As New System.Text.StringBuilder For Each p As String In b.Split(" ") a.Append(Chr(Convert.ToInt32(p, 16))) Next Dim s = a.ToString MsgBox(s)

واشتغل معاي وطلع الرقم كامل

ولكن عند الغاء تفعيل

كود :

On Error Resume Next

يطلع لي مسج غلط

ولكن مع تفعيل

كود :

On Error Resume Next

لا يوجد اي غلط ويطلع معاي الرقم الحمدالله

اشكرك شكرا على وقتك ومجهودك

الان احاول اشتغل على الكتابه في حالت اريد تغيير رقم الشاصي الى رقم ثاني واذا واجهتني اي مشكله ساكتبها هنا

شكرا

اذا كنت تعتمد هذا المشروع في العمل (في الوظيفة)
فاحذر من من استخدام On Error Resume Next
لانها تمنع عنك معرفةالخطأ فتكون النتيجة خطأ وأنت لا تدري
فتقع في حرج مع رؤسائك

بالتوفيق

كلامك صحيح

ولكن لماذا طلع لي هذا الغلط

PHP كود :

System.ArgumentOutOfRangeException: 'Index was out of range. Must be non-negative and less than the size of the collection.
Parameter name: startIndex' 

out of range

هل احتاج اغير شي او ازيد في رقم معين

(24-06-23, 08:35 PM)dubai.eig كتب : [ -> ]
(24-06-23, 08:29 PM)joly كتب : [ -> ]
(24-06-23, 08:22 PM)dubai.eig كتب : [ -> ]
(24-06-23, 07:15 PM)joly كتب : [ -> ]
(24-06-23, 11:34 AM)dubai.eig كتب : [ -> ]شكرا لك
ولكن لازالت الارقام ناقصه

المفروض
3GTN99EF0KG228494

والي طلع بعد التعديل
N99EF0G22849

ولكن السؤال الان كيف احول الارقام
bytes
47 32 32 38 34 39 34

الي
string
G228494

اريد كود التحويل وشكرا

انا طلع عندي 3GTN99EF0KG228494
لكن يمكن النص غير مطابق مع النص الحقيقي عندك
نفذ هذا الكود لحفظ الرد كما هو في ملف ثم ارفق الملف file.txt

PHP كود :

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click sp1.Write("0902" & vbCr) Dim r = sp1.ReadTo(">") IO.File.WriteAllText("file.txt", r) End Sub

بالنسبه للسؤال الثاني
هذا كود التحويل على اساس string وطلع عندي G228494

PHP كود :

Dim b = "47 32 32 38 34 39 34" Dim a As New System.Text.StringBuilder For Each p As String In b.Split(" ") a.Append(Chr(Convert.ToInt32(p, 16))) Next Dim s = a.ToString MsgBox(s)

شكرا لك عزيزي

الحمدالله ضبط معاي

قمت بتغيير الكود التالي

كود :

If inPort = "" Then Exit Sub For i = 0 To 2 txt &= ChrW(Convert.ToInt32(Mid(inPort, 30 + i * 3, 2), 16)) Next For i = 0 To 6 txt &= ChrW(Convert.ToInt32(Mid(inPort, 33 + i * 3, 2), 16)) Next For i = 0 To 6 txt &= ChrW(Convert.ToInt32(Mid(inPort, 58 + i * 3, 2), 16)) Next

بهذا الكود

كود :

Dim abData() As Byte Dim Str As String Dim txt As String = "" sp1.Write("0902" & vbCr) inPort = sp1.ReadTo(">") ''0902 ''014 ''0: 49 02 01 33 47 54 ''1: 4E 39 39 45 46 30 4B ''2: 47 32 32 38 34 39 34 getvin1 = After(inPort, "0:") getvin2 = After(inPort, "1:") getvin3 = After(inPort, "2:") vin1 = getvin1.Substring(9, 10).Trim vin2 = getvin2.Substring(0, 22).Trim vin3 = getvin3.Substring(0, 22).Trim Dim b = vin1 & Space(8) & vin2 & Space(8) & vin3 Dim a As New System.Text.StringBuilder For Each p As String In b.Split(" ") a.Append(Chr(Convert.ToInt32(p, 16))) Next Dim s = a.ToString MsgBox(s)

واشتغل معاي وطلع الرقم كامل

ولكن عند الغاء تفعيل

كود :

On Error Resume Next

يطلع لي مسج غلط

ولكن مع تفعيل

كود :

On Error Resume Next

لا يوجد اي غلط ويطلع معاي الرقم الحمدالله

اشكرك شكرا على وقتك ومجهودك

الان احاول اشتغل على الكتابه في حالت اريد تغيير رقم الشاصي الى رقم ثاني واذا واجهتني اي مشكله ساكتبها هنا

شكرا

اذا كنت تعتمد هذا المشروع في العمل (في الوظيفة)
فاحذر من من استخدام On Error Resume Next
لانها تمنع عنك معرفةالخطأ فتكون النتيجة خطأ وأنت لا تدري
فتقع في حرج مع رؤسائك

بالتوفيق

كلامك صحيح

ولكن لماذا طلع لي هذا الغلط

PHP كود :

System.ArgumentOutOfRangeException: 'Index was out of range. Must be non-negative and less than the size of the collection. Parameter name: startIndex'

out of range

هل احتاج اغير شي او ازيد في رقم معين

بعد تنفيذ كود قراءة الرد من الكمبيوتر في مشاركتي http://vb4arb.com/vb/showthread.php?tid=...#pid192887
أين ملف file.txt؟

ليكون الحل صحيحا