كيف اجعل السرفر تستجيب لبعض الاوامر winsock

طريقة الفصل كالتالي:

 Dim spArray() As String
 spArray = Split(.FileName, ".")
 Array.Reverse(spArray)
 Me.lblResult1.Text = spArray(0)

سيكون الناتج هو فصل ما بعد النقطة وهو الامتداد ثم تختبر إذا كان txt أم لا .

لكن هنالك طريقة أفضل من هذه وهي باستخدام الوظيفة Path على سبيل المثال.

  Me.lblResult1.Text = System.IO.Path.GetExtension(.FileName)

بالتوفيق إن شاء الله.

احب اعطيك رد قبل التجريب

اشكرك اخي الشهاب الحارق على مساعدتي

والى الامام دئماً

ومنتضر رد الاعضاء الاخرون اذا كان لديهم معلموات اخرى

انا حاولت اخي الشهاب الحارق الطريق ولكن لم تنجح :blink:

انا اريد ارسل من الclient امر

اقتباس

read d:/ammar.txt

اقتباس

D:/ammar.txt

هذا الكود الذي استخدمة لتوضيح اكثر

 Private Sub Sock_DataArrival(ByVal sender As Object, ByVal e As AxMSWinsockLib.DMSWinsockControlEvents_DataArrivalEvent) Handles Sock.DataArrival
		Dim A As Object
		Dim NewString As String
		Dim Character As Byte
		Dim XDirectories() As String
		Dim d As Integer
		Dim spArray() As String
		ServerAcciones.Items.Add("Message arrival!")
		Sock.GetData(A)

		'BECAUSE THIS VERSION OF WINSOCK IS DIFFERENT THAN VB6 WINSOCK
		'Only Bytes can be sent with winsock, so we'll going to reseive a lot of bytes, and we 
		'must Cast them to Chars

		For Each Character In A
			NewString = String.Concat(NewString, Chr(Character))
		Next

		'After that, concat into txtArrive textBox
		Txtarrive.Text = String.Concat(Txtarrive.Text, NewString & vbCrLf)
		If NewString.StartsWith("read") Then
			spArray = Split("read", " ")
			Array.Reverse(spArray)
			TextBox1.Text = spArray(0)
			Dim reader As New StreamReader(TextBox1.Text, True)
			Sock.SendData(reader.ReadToEnd()) 
End if

و شـــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــكـــــ

ــــــــــــــــــــــــــــــــــــــــــــــــر اً

على العموم انا عرفت الاجااااااابة

شكراً لك شهاب

 
Dim LineOfText As String
		Dim i As Integer
		Dim aryTextFile() As String

LineOfText = NewString
			aryTextFile = LineOfText.Split(" ")
			For i = 0 To UBound(aryTextFile)
				TextBox1.Text = (aryTextFile(i))
		   Next i
end if

الحمدُ لله أنك توصلت للحل, وشكراً جزيلاً لك لانك عرض الحل, فنعِم السائل انت.

:lol: :lol: :lol:

الى الامام اخي شهاب B)

-waf