ab.com コミュニティ

コード: 全て選択

Declare Function CharNext Lib "user32" Alias "CharNextA" (
	ByVal lpsz As LPCSTR) As LPSTR

Function mb_lstrlen(ByVal lpString As LPCSTR) As Long
Dim lpsz As LPSTR
	lpsz=lpString
	While lpsz[0]<>0
		mb_lstrlen++
		lpsz=CharNext(lpsz)
	Wend
End Function

コード: 全て選択

Function mb_lstrlen(ByVal lpString As LPCSTR) As Long
Dim cnt=0 As Long
	While lpString[cnt]<>0
		If IsDBCSLeadByte(lpString[cnt])<>TRUE Then
			mb_lstrlen++
		End If
		cnt++
	Wend
End Function

' 使い方
Dim length As Long

' 16が格納されます。
length=mb_lstrlen("HogeFugaPiyoMoko")

' 10が格納されます。
length=mb_lstrlen("あかさたなはまやらわ")

コード: 全て選択

Sub MainWnd_EditBox1_Change()
	Dim Str As String
	Dim S As String
	Dim Length As Long
	
	Length = GetWindowTextLength(GetDlgItem(hMainWnd, EditBox1))
	
	Str$ = ZeroString(Length)
	
	GetDlgItemText(hMainWnd, EditBox1, Str, Length)
	
	'文字数取得
	S = Str$(LenStr(Str))
	
	'文字数を表示する
	SetDlgItemText(hMainWnd2, EditBox1, StrPtr(S))

End Sub

Function LenStr(Str As String) As Long
	'* 文字数を返します *
	Dim Str2$ As String, Num As Long

	'Unicodeに変換後、使用するバイト数の取得
	Str2$ = ZeroString(MultiByteToWideChar(0, 0, Str, Len(Str), 0, 0) * 2)

	'Unicodeに変換
    Num = MultiByteToWideChar(0, 0, Str, Len(Str), StrPtr(Str2$), Len(Str2$))

	LenStr = Num	'文字数を返す

End Function