tagCANDY CGI VBレスキュー(花ちゃん)の Visual Basic 6.0用 掲示板
VBレスキュー(花ちゃん)の Visual Basic 6.0用 掲示板
[ツリー表示へ]　 [ワード検索]　 [Home]

タイトル ： Re: MidB関数
投稿日： 2009/05/16(Sat) 17:25
投稿者： nobu
以前に下記に投稿した事があります。

http://hanatyan.sakura.ne.jp/logbbs/wforum.cgi?mode=allread&no=1179&page=1680

この中でのリンク先が現在は無くなっています。

Private Sub Command1_Click()

   Dim A1 As String

   A1 = "   ああ-1  いい"

   Debug.Print MidBB(A1, 4, 6)  ' --->  [ああ-1]

   Debug.Print LenBB(A1)  ' --->  15

End Sub

Private Function LenBB(sTargetStr As String) As Long
    LenBB = 0
    If IsNull(sTargetStr) Then
        LenBB = 0
        Exit Function
    End If
    LenBB = LenB(StrConv(sTargetStr, vbFromUnicode))
End Function


Private Function MidBB(sTargetStr As String, lStrPos As Long, lLength As Long) As String
    MidBB = ""
    If IsNull(sTargetStr) Then
        MidBB = Null
        Exit Function
    End If
    MidBB = StrConv(MidB(StrConv(sTargetStr, vbFromUnicode), _
                                             lStrPos, lLength), vbUnicode)
End Function
- 関連一覧ツリー （ をクリックするとツリー全体を一括表示します）

古いスレッドにレスはつけられません。