VB.Net/Class/Extension — различия между версиями
Admin (обсуждение | вклад) м (1 версия) |
Admin (обсуждение | вклад) м (1 версия) |
(нет различий)
|
Текущая версия на 15:42, 26 мая 2010
Adding extension method to string
<source lang="vbnet"> Imports System Imports System.Linq Imports System.Runtime.rupilerServices
Module Module1
Sub Main() Dim s As String = "this is a test" Console.WriteLine(s.SpaceToUnderscore()) End Sub
End Module
<Extension()> _ Public Class Extensions <Extension()> _ Public Shared Function SpaceToUnderscore(ByVal source As String) As String Dim cArray As Char() = source.ToCharArray() Dim result As String = String.Empty For Each c As Char In cArray If Char.IsWhiteSpace(c) Then result = result & "_" Else result = result & c End If Next Return result End Function End Class </source>