自作関数とは何か? |
---|
関数とは何か? |
---|
文字列操作の自作関数1 |
---|
StrCtrl.bas ソースプログラム1
Function GetStrL(ByVal Str As String, ByVal StartS As String) As String If InStr(Str, StartS) = 0 Then GetStrL = "" Exit Function End If Dim StrLength As Integer '抜き出したい文字の長さ StrLength = InStr(Str, StartS) - 1 GetStrL = Left(Str, StrLength) End Function |
自作関数の意義 |
---|
文字列操作の自作関数2 |
---|
StrCtrl.bas ソースプログラム2
Function GetStrR(ByVal Str As String, ByVal EndS As String) As String If InStr(Str, EndS) = 0 Then GetStrR = "" Exit Function End If Dim StrLength As Integer '抜き出したい文字の長さ StrLength = Len(Str) - InStr(Str, EndS) GetStrR = Right(Str, StrLength) End Function |
StrCtrl.bas ソースプログラム3
Public Sub SelText(SelectText As TextBox) SelectText.SelStart = 0 SelectText.SelLength = Len(SelectText) End Sub |
文字列操作はこれだけじゃないっ! |
---|