نقل قول: Extension Methods
سلام به همه.
دو Extension Method برای متغیر های رشته ای: حذف کاراکتر از انتهای رشته به تعداد ورودی len
Imports System.Runtime.CompilerServices
Module StringExtensions
<Extension()> Function RemoveEnd(Str As String, Optional len As Integer = 1) As String
If Str.Length = 0 Then Return ""
Return Str.Remove(Str.Length - len, len)
End Function
<Extension()> Sub RemovingEnd(ByRef Str As String, Optional len As Integer = 1)
If Str.Length > 0 Then
Str = Str.Remove(Str.Length - len, len)
End If
End Sub
End Module
نقل قول: Extension Methods
سلام.
دوتا Extension Method برای متغیر های رشته ای : به ابتدا یا انتهای رشته می شه متن اضافه کرد و برای جداسازی هر متن اضافه شده می شه بهش delimiter یا کاراکتر جداکننده ضمیمه کرد.
<Extension()> Sub AppendAfter(ByRef str As String, value As String, Optional delimiter As String = "")
Dim Expr As String = If(str.Length > 0, delimiter, "")
str = str.Insert(str.Length, Expr + value)
End Sub
<Extension()> Sub AppendBefor(ByRef str As String, value As String, Optional delimiter As String = "")
Dim Expr As String = If(str.Length > 0, delimiter, "")
str = str.Insert(0, value + Expr)
End Sub
نقل قول: Extension Methods
یک Extension Method برای String -
تابعی برای بدست آوردن تعداد فاصله های موجود در انتهای یک متن:
<Extension()> Function EndSpaces(str As String) As Integer
If str.Length = 0 Then Return 0
Dim SPL() As String = str.Split(Space(1))
Dim Spaces As Int16 = 0
If str.Length > 0 Then
For i = SPL.Length - 1 To 0 Step -1
If SPL(i).Length = 0 Then
Spaces += 1
Else
Exit For
End If
Next
End If
Return Spaces
End Function
اگه روش بهتری برای بدست آوردن فاصله های انتهایی موجود در متن دارید توی همین تاپیک مطرح کنید.
نقل قول: Extension Methods
یک Extension Method برای String
این تابع آخرین خط از یک متن رو بر می گردونه:
<Extension()> Function LastLine(str As String) As String
Dim Lines() As String = str.Split(Chr(10), Chr(13))
If Lines.Length = 0 Then Return ""
If Lines.Length > 0 Then
Return Lines(Lines.Length - 1)
End If
Return ""
End Function
اگه روش بهتری دارید در همین تاپیک مطرح کنید.
نقل قول: Extension Methods
یک Extension Method برای String
این تابع کلمه ای رو که در رشته ویرایش کردید رو بر می گردونه: و با وجود دو ورودی قابل ارجاع sIndex و eIndex به برنامه نویس این امکان رو می ده تا بتونه خارج از متد شماره Index شروع و پایان کلمه در متن رو بدست بیاره.
''' <summary>
''' Get Current Changed Word
''' </summary>
''' <param name="str"></param>
''' <param name="Position">Start Position to check(e.x. Console.CursorLeft)</param>
''' <param name="sIndex">Referenced Start Index</param>
''' <param name="eIndex">Referenced End Index</param>
''' <returns></returns>
''' <remarks></remarks>
<Extension()> Function CurrentWord(str As String, Position As Integer, Optional ByRef sIndex% = 0, Optional ByRef eIndex% = 0) As String
Dim StartIndex As Integer, EndIndex As Integer
If str.Substring(Position).Length = 0 Then Return ""
str = str.TrimEnd
'Debug.Print("CurrentWord Position: {0}", Position)
For i = Position To 0 Step -1
If str(i).CompareTo(" "c) = 0 Then
StartIndex = i
GoTo EndIndex
End If
Next
StartIndex = 0
EndIndex: 'Debug.Print("StartIndex: {0}", StartIndex)
For i = Position To str.Length - 1 Step 1
If str(i).CompareTo(" "c) = 0 Then
EndIndex = i
GoTo ReturnValue
End If
Next
EndIndex = str.Length - 1
ReturnValue: 'Debug.Print("EndIndex: {0}", EndIndex)
sIndex = StartIndex
eIndex = EndIndex
Dim Len% = (EndIndex - StartIndex) + 1
'Debug.Print("Word: {0}", str.Substring(StartIndex, Len))
Return str.Substring(StartIndex, Len)
End Function
اگه روش بهتری دارید یا اگه خطایی داره در همین تاپیک مطرح کنید.
نقل قول: Extension Methods
نقل قول:
نوشته شده توسط
ROSTAM2
یک Extension Method برای String -
تابعی برای بدست آوردن تعداد فاصله های موجود در انتهای یک متن:
<Extension()> Function EndSpaces(str As String) As Integer
If str.Length = 0 Then Return 0
Dim SPL() As String = str.Split(Space(1))
Dim Spaces As Int16 = 0
If str.Length > 0 Then
For i = SPL.Length - 1 To 0 Step -1
If SPL(i).Length = 0 Then
Spaces += 1
Else
Exit For
End If
Next
End If
Return Spaces
End Function
اگه روش بهتری برای بدست آوردن فاصله های انتهایی موجود در متن دارید توی همین تاپیک مطرح کنید.
سلام و روز خوش
پیش از هر چیز باید برای این آموزش مفید همراه با توضیح کامل تشکر کنم، برای خود من تازگی داشت.
چند مورد به ذهنم رسید:
1- اگر str برابر empty یا null باشه str.length باعث خطا میشه،
بهتر هست که از تابع isnullorempty استفاده بشه.
2- اگر در انتهای str فقط دنبال space باشیم ممکن هست که نتیجه اشتباه بگیریم،
اگر tab یا enter (CR+LF) در انتها باشه این کد تشخیص نمیده.
3- در کل ساده تر هم میشه نوشت:
<Extension()> Function EndSpaces(str As String) As Integer
if string.isnullorempty(str) then
return 0
else
return str.length - str.trimend.length
end if
End Function
البته این کد تشخیص نمیده که str با چی تموم شده (اگر لازم باشه میشه اصلاحش کرد)،
ولی این رو که در پایانش whitespace داره یا نه درست چک میکنه.
نقل قول: Extension Methods
آفرین.
من اصلا توجهی به اون محاسبه با TrimEnd نداشتم. ممنون تابع رو کاملتر کردم و یک Enumeration داریم که مقادیر دلخواه رو می تونیم به ورودی دوم که اختیاری هم هست بدیم تا تعداد Whitespace رو طبق اون ورودی محاسبه کنیم.
تابع تصحیح شده:
<Extension()> Function EndWhitespaces(str As String, Optional Kind As WhitespaseKind = WhitespaseKind.All) As Integer
If str.Length = 0 Then Return 0
Dim Chars() As Char
Dim WhiteSpaceLen As Int16 = str.Length - str.TrimEnd.Length
Dim CompChar As Char = vbNullChar
Dim StartIndex%, Len%
Dim WhiteSpaces% = 0
StartIndex = (str.Length - WhiteSpaceLen)
Len = WhiteSpaceLen
Select Case Kind
Case WhitespaseKind.All
Return WhiteSpaceLen
Case WhitespaseKind.Space
CompChar = Chr(32)
Case WhitespaseKind.vbCr
CompChar = Chr(13)
Case WhitespaseKind.vbCrlf
If Len Mod 2 = 0 Then
For i = StartIndex To str.Length - 1 Step 2
Debug.Print("->", str.Substring(i, 2))
If str.Substring(i, 2).CompareTo(Chr(13) & Chr(10)) = 0 Then
WhiteSpaces += 1
End If
Next
End If
GoTo ReturnLine
Case WhitespaseKind.vbLf
CompChar = Chr(10)
End Select
Chars = str.ToCharArray(StartIndex, Len)
For i = 0 To Chars.Length - 1
If Chars(i).CompareTo(CompChar) = 0 Then
WhiteSpaces += 1
End If
Next
ReturnLine:
Return WhiteSpaces
End Function
و این هم WhitespaceKind Enumeration:
<Flags()> _
Enum WhitespaseKind
All = 0
Space = 2
''' <summary>
''' vbCr Chr(13) Carriage return
''' Represents a carriage-return character for print and display functions.
''' </summary>
''' <remarks>return to line beginning</remarks>
vbCr = 3
''' <summary>
''' vbCrLf Chr(13) + Chr(10) Carriage return–linefeed combination
''' Represents a carriage-return character combined with a linefeed character for print and display functions.
''' </summary>
''' <remarks>similar to pressing Enter</remarks>
vbCrlf = 7
''' <summary>
''' vbLf Chr(10) Line feed
''' Represents a linefeed character for print and display functions.
''' </summary>
''' <remarks>go to next line</remarks>
vbLf = 4
End Enum
نقل قول: Extension Methods
دستور Case vbCrlf در پست قبلی درست عمل نمی کرد که صحیحش این هست:
Case WhitespaseKind.vbCrlf
For i = StartIndex To str.Length - 1 Step 2
If i = str.Length - 1 Then Exit For
'Debug.Print("->", str.Substring(i, 2))
If str.Substring(i, 2).CompareTo(Chr(13) & Chr(10)) = 0 Then
WhiteSpaces += 1
End If
Next
GoTo ReturnLine
که این هم تصحیح کامل تابع پست قبل EndWhiteSpaces Extension Method:
<Extension()> Function EndWhitespaces(str As String, Optional Kind As WhitespaseKind = WhitespaseKind.All) As Integer
If str.Length = 0 Then Return 0
Dim Chars() As Char
Dim WhiteSpaceLen As Int16 = str.Length - str.TrimEnd.Length
Dim CompChar As Char = vbNullChar
Dim StartIndex%, Len%
Dim WhiteSpaces% = 0
StartIndex = (str.Length - WhiteSpaceLen)
Len = WhiteSpaceLen
Select Case Kind
Case WhitespaseKind.All
Return WhiteSpaceLen
Case WhitespaseKind.Space
CompChar = Chr(32)
Case WhitespaseKind.vbCr
CompChar = Chr(13)
Case WhitespaseKind.vbCrlf
For i = StartIndex To str.Length - 1 Step 2
If i = str.Length - 1 Then Exit For
'Debug.Print("->", str.Substring(i, 2))
If str.Substring(i, 2).CompareTo(Chr(13) & Chr(10)) = 0 Then
WhiteSpaces += 1
End If
Next
GoTo ReturnLine
Case WhitespaseKind.vbLf
CompChar = Chr(10)
End Select
Chars = str.ToCharArray(StartIndex, Len)
For i = 0 To Chars.Length - 1
If Chars(i).CompareTo(CompChar) = 0 Then
WhiteSpaces += 1
End If
Next
ReturnLine:
Return WhiteSpaces
End Function
نقل قول: Extension Methods
این متود نمونه دیگه ای از همون متود پست قبل هست که نامش به EndWhiteSpace تغییر کرده و نوع خروجی اون یک Structure با نام WhitespaceString هست که کاربرد بیشتری نسبت به متود قبلی داره:
WhitespaceString Structure:
Structure WhitespaceString
Sub New(Value As String)
Me.ValueValue = Value
End Sub
Private ValueValue As String
Public ReadOnly Property Value() As String
Get
Return ValueValue
End Get
End Property
Public ReadOnly Property Length(Optional kind As WhitespaseKind = WhitespaseKind.All) As Integer
Get
Dim Chars() As Char
Dim CompChar As Char = vbNullChar
Dim StartIndex%, Len%
Dim WhiteSpaces% = 0
Len = Value.Length
Select Case kind
Case WhitespaseKind.All
Return Len
Case WhitespaseKind.Space
CompChar = Chr(32)
Case WhitespaseKind.vbCr
CompChar = Chr(13)
Case WhitespaseKind.vbCrlf
For i = 0 To Len - 1 Step 2
If i = Len - 1 Then Exit For
'Debug.Print("->", Value.Substring(i, 2))
If Value.Substring(i, 2).CompareTo(Chr(13) & Chr(10)) = 0 Then
WhiteSpaces += 1
End If
Next
GoTo ReturnLine
Case WhitespaseKind.vbLf
CompChar = Chr(10)
End Select
Chars = Value.ToCharArray(StartIndex, Len)
For i = 0 To Chars.Length - 1
If Chars(i).CompareTo(CompChar) = 0 Then
WhiteSpaces += 1
End If
Next
ReturnLine:
Return WhiteSpaces
End Get
End Property
Public Function Contains(chr As String) As Boolean
Return Value.Contains(chr)
End Function
End Structure
EndWhitespace Extension Method:
<Extension()> Function EndWhitespace(str As String) As WhitespaceString
If str.Length = 0 Then Return Nothing
Dim WhiteSpaceLen As Int16 = str.Length - str.TrimEnd.Length
Dim StartIndex%, Len%
StartIndex = (str.Length - WhiteSpaceLen)
Len = WhiteSpaceLen
Return New WhitespaceString(str.Substring(StartIndex, Len))
End Function
WhitespaceKind Enumeration هم که در پست شماره 8 هست و اینجا برای خصوصیت Length از WhitespaceString Structure بکار گرفته می شه.
1 ضمیمه
نقل قول: Extension Methods
آیا در انتهای متن یک خط جدید NewLine وجود دارد؟
1.
strings.EndWhitespace.Contains(vbNewLine)
2.
strings.EndWhitespace.Contains(vbCrLf)
تعداد کاراکترهای فاصله در انتهای متن چقدر است:
strings.EndWhitespace.Length
تعداد کاراکترهای فاصله مورد سوال بین vbCr, vbCrLf, vbLf, Space
strings.EndWhitespace.Length(WhitespaseKind.Space)
strings.EndWhitespace.Length(WhitespaseKind.vbCr)
strings.EndWhitespace.Length(WhitespaseKind.vbCrlf )
strings.EndWhitespace.Length(WhitespaseKind.vbLf)
برای تشخیص موجود بودن کاراکترهای مورد سوال هم از Contains استفاده می شه:
strings.EndWhitespace.Contains(vbLf)
ضمیمه 154085
نقل قول: Extension Methods
در ادامه بحث و در مورد متد سودمند پست شماره 10 :
در کد زیر از روش دیگه ای استفاده شده که بعضی موارد رو اشاره میکنم:
1- از استراکچر در خود اکستنشن استفاده نشده و نیاز به ساختش به اختیار کاربر واگذار شده. بنابراین مستقیم با خود رشته سروکار داره.
2- روش جستجو کلا متفاوت هست و کد جمع و جورتری داره (به معنی بهتر بودن نیست!)
3- whitespace ها رو هم در ابتدا و هم در انتهای رشته پیدا میکنه.
4- یک متد به اسم formatted داره که blank,tab,cr,lf,crlf رو با کارآکترهای دیدنی جایگزین و به تشخیص موقیعت اونها کمک میکنه.
Const vbBlank As Char = " "
Const zBlank = ChrW(&H25CC) ' ◌
Const zTab = ChrW(&H2192) ' →
Const zCrLf = ChrW(&HB6) ' ¶
Const zLf = ChrW(&H2193) ' ↓
Const zCr = ChrW(&HAC) ' ¬
Const zAny = zBlank + zTab + zCrLf + zLf + zCr
<Extension> Function StartWhiteSpaces(str As String) As String
str = NZ(str)
Return str.Substring(0, str.Length - str.TrimStart.Length)
End Function
<Extension> Function EndWhiteSpaces(str As String) As String
str = NZ(str)
Return str.Substring(str.TrimEnd.Length)
End Function
<Extension> Function Formatted(str As String) As String
Return NZ(str).
Replace(ChrW(32), zBlank).
Replace(vbTab, zTab).
Replace(vbCrLf, zCrLf).
Replace(vbLf, zLf).
Replace(vbCr, zCr)
End Function
<Extension> Function CountOfBlanks(str As String) As Integer
Return NZ(str).Count(Function(chr) chr = vbBlank)
End Function
<Extension> Function CountOfTabs(str As String) As Integer
Return NZ(str).Count(Function(chr) chr = vbTab)
End Function
<Extension> Function CountOfCrs(str As String) As Integer
Return NZ(str).Replace(vbCrLf, String.Empty).Count(Function(chr) chr = vbCr)
End Function
<Extension> Function CountOfLfs(str As String) As Integer
Return NZ(str).Replace(vbCrLf, String.Empty).Count(Function(chr) chr = vbLf)
End Function
<Extension> Function CountOfCrLfs(str As String) As Integer
str = NZ(str)
Return (str.Length - str.Replace(vbCrLf, String.Empty).Length) / 2
End Function
<Extension> Function CountOfWhiteSpaces(str As String) As Integer
Return NZ(str).Formatted.Count(Function(chr) zAny.IndexOf(chr) >= 0)
End Function
<Extension> Function HasBlank(str As String) As Boolean
Return NZ(str).IndexOf(vbBlank) >= 0
End Function
<Extension> Function HasTab(str As String) As Boolean
Return NZ(str).IndexOf(vbTab) >= 0
End Function
<Extension> Function HasCr(str As String) As Boolean
Return NZ(str).Replace(vbCrLf, String.Empty).IndexOf(vbCr) >= 0
End Function
<Extension> Function HasLf(str As String) As Boolean
Return NZ(str).Replace(vbCrLf, String.Empty).IndexOf(vbLf) >= 0
End Function
<Extension> Function HasCrLf(str As String) As Boolean
Return NZ(str).IndexOf(vbCrLf) >= 0
End Function
<Extension> Function HasWhiteSpace(str As String) As Boolean
Return NZ(str).Formatted.IndexOfAny({zBlank, zTab, zCr, zLf, zCrLf}) >= 0
End Function
Private Function NZ(str As String) As String
If String.IsNullOrEmpty(str) Then
Return String.Empty
Else
Return str
End If
End Function
1 ضمیمه
نقل قول: Extension Methods
Const Sample As String = vbCr + vbTab + vbLf + vbLf + vbTab + " This is a" + vbTab + vbCrLf + " Test. " + vbTab + vbCrLf
ضمیمه 154094
نقل قول: Extension Methods
یک Extension Method برای حذف کاراکترهای رشته از آخر بر اساس تعداد کاراکتر:
<Extension>
Public Function ReverseRemove(input As String, Length As Integer) As String
Return input.Remove(input.Length - (Length), Length)
End Function
Word = Word.ReverseRemove(4)
