أريد شرح وأمثلة على الدوال التالية

و عليكم السلام ..

1 - Console.Write

لطباعة نص على الشاشة .. مثال :

Console.Write("Arab Team")

2 - Console.WriteLine

أيضًا لطباعة نص .. لكن الفرق بينها وبين الأولى , هو الإنتقال لسطر جديد .. مثال :

Console.WriteLine("Arab Team")

3 - Console.ReadLine

للقراءة من المستخدم , ويتم التخزين في متغير .. مثال :

Dim A As String
A = Console.ReadLine()

4 - ReadKey

لقراءة حرف واحد فقط ..

دوال الـ String

Length

تعطي طول النص ,

Compare

للمقارنة بين نصين ,

Contains

للبحث ..

StartWith

مثلاً عندي نص .. و أريد أن أعرف هل النص يبدأ بحرف A مثلاً ,

IndexOf

مثلاً عندي نص .. و أريد معرفة العنوان للحرف A مثلاً ,

Remove

للحذف (مثلاً أحذف حرف من النص) ,

Insert

للإدخال (مثلاً أضيف للنص ) ,

Replace

للأستبدال .. (مثلاً عندي نص وأريد إستبدال الحرف A بحرف آخر ) ,

Split

للتقسيم .. ( مثلاً عندي نص وأريد تقسيمه من عند حرف معين ) ,

ToUpper

أحول الحروف إلى capital ,

أتمنى يكون واضح .. ,

بالتوفيق :happy: ,

مشكور انا فهمت عليك في دوال الكونسول .. أما دوال الـ string ياليت تعطيني أمثلة بالأكواد

أنا أعطيك بعض الامثلة الت طبقتها بالأكواد

 If TextBox1.TextLength = 6 Then
                    	Label1.Text = "6"
                	End If

هذا الكود مثلا يكتب لك الرقم 6 اذا كان عدد خانات TextBox1 المكتوبة هو 6

If TextBox1.Text.Contains("a") Then
                    	Label1.Text = "There is a in the textbox n1"
                	End If

هذا الكود مثلا يخبرك بوجود الحرف a في الtextbox1 اذا وجد فيه فعلا

	If TextBox1.Text.StartsWith("a") Then
                    	Label1.Text = "The text is starting with : a"
                	End If

هذا الكود مثلا يخبرك بأن النص في ال TextBox1 قد ابتدأ بالحرف a

وهناك الكود EndsWith وصيغة ادخاله كشابهة تمام ل StartsWith

السلام عليكم ,

الدالة ToUpper .. مثال :

MsgBox(TextBox1.Text.ToUpper)

الدالة Split .. مثال :

Dim s As String = "Arab Team"
        Dim a() As String = s.Split(" ")
        MsgBox(a(0))
        MsgBox(a(1))

الدالة Replace مثال :

Dim s As String = "Arab Team"
        MsgBox(s.Replace("Arab", "arab"))

الدالة Remove مثال :

 Dim s As String = "Arab Team"
        MsgBox(s.Remove(2))

لاحظ أن الحذف من العنوان رقم 2 , يعني بيطبع لنا "Ar" فقط ..! ويمكنك تحديد المجال لحذفه , مثل :

 Dim s As String = "Arab Team"
        MsgBox(s.Remove(2,4))

الدالة IndexOf مثال :

Dim s As String = "Arab Team"
        MsgBox(s.IndexOf("b"))

ان شاء الله يكون واضح ..

وبالتوفيق ,