دوستان اینارو پیدا کردم
گفتم اینجا هم قرارشون بدم
الف) انتخاب قسمتی از متن (mid)
دستور mid بر اساس فرم زیر قابل استفاده است:
A = متغیر متنی یا یک رشته متن
B = شماره کارکتر شروع انتخاب
C = تعداد کارکتر انتخاب
کد:
Dim aString As String = “SomeString”
Dim bString As String
bString = Mid(aString, 3, 3) ‘ Returns “meS”
Response.Write(bString)
ب) انتقال بخشی از یک متن به داخل یک متغیر
Substring بر اساس روش زیر قابل استفاده می باشد:
کد:
نام متغیر رشته ای.Substring(A, B)
A = شماره کارکتر شروع انتخاب
B = تعداد کارکتر انتخاب
کد:
Dim aString As String = “A String”
Dim bString As String
bString = aString.Substring(2, 6) ‘ Returns “String”
Response.Write(bString)
ج) جمع نمودن چند رشته با یکدیگر
String.Concat می تواند چند رشته را در کنار هم قرار دهد و یا مجموع اطلاعات یک آرایه را با هم ادغام نماید.
کد:
Dim myString As String
Dim aString(10) As String
Dim t As Integer
For t = 0 To 9
aString(t) = CStr(t)
Next t
myString = String.Concat(aString) ‘ Returns “0123456789″
Response.Write(myString)
د) ادغام رشته ها به همراه قرار دادن کارکتر جدا کننده
String.Join این امکان را فراهم می کند تا ضمن ادغام چند رشته، در بین اطلاعات کاراکتر جداکننده نیز قرار دهیم.
کد:
Dim shoppingItem(2) As String
Dim shoppingList As String
shoppingItem(0) = “Milk”
shoppingItem(1) = “Eggs”
shoppingItem(2) = “Bread”
shoppingList = String.Join(“,”, shoppingItem) ‘Returns “Milk,Eggs,Bread”
Response.Write(shoppingList)
ح) اضافه کردن متن جدید به یک رشته (Insert)
برای اضافه کردن متن جدید به یک رشته کافی است از Insert به روش زیر استفاده نماییم:
کد:
متغیر رشته ای.Insert(A, B)
A = شماره کارکتری که اضافه شدن از آن شروع می شود
B = متنی که می خواهیم اضافه کنیم
کد:
Dim aString As String = “This is My Stng”
Dim myString As String
myString = aString.Insert(13, “ri”) ‘ Returns “This is My String”
Response.Write(myString)
و) جدا نمودن یک رشته بر اساس یک کارکتر تکراری
گاهی اوقات لازم است بر خلاف String.Join متن یک رشته را که به طور مثال با “،” به قطعات مشخص تقسیم شده است را از هم جدا نماییم. برای این منظور همانند مثال زیر عمل نمایید:
کد:
Dim shoppingList As String = “Milk,Eggs,Bread”
Dim shoppingItem(2) As String
shoppingItem = shoppingList.Split(“,”c)
Dim s As String
For Each s In shoppingItem
If s.Trim() <> “” Then
Response.Write(s & “<BR>”)
End If
Next s
ز) جایگزینی متن در رشته (Replace)
هرگاه نیاز به تعویض و جایگزینی یک متن در یک رشته داشته باشیم می توانیم از Replace همانند مثال استفاده کنیم:
کد:
Dim myString As String = “Shopping List”
Dim aString As String
aString = Replace(myString, “o”, “i”) ‘ Returns “Shipping List”.
Response.Write(aString)
نقل قول: دعا کنید پروژمو قبول کنه