ab.com コミュニティ

文字数のByte数は取得出来ますが、
文字数をカウントする方法が無さそうだったので作ってみました。
一応、半角全角を対応させています。
半角のカタカナは、2つで1文字とカウントされるっぽいですが……

GetTextCount関数として定義してます。

戻り値に文字数、
引数にカウントさせるテキストデータ（BytePtr型）
TextNum = GetTextCount(buf)

▽使用例▽

[ここをクリックすると内容が表示されます]

▽これをコピペしてください▽

[ここをクリックすると内容が表示されます]

コード: 全て選択

Function GetTextCount(Text As BytePtr) As Long
	Dim i As Long
	Dim Count As Long

	i=0
	Count = 0
	Do
		'ポインタの最後ならば抜ける
		If Text = NULL Then
			Exit Do
		End If

		'文字が全角文字のとき
		If IsCharAlphaNumeric(Text) = FALSE Then
			If Text[i+1] = NULL Then
				Count++
				Exit Do
			End If

			i+=2
			Count++
			Continue
		End If

		Count++
		i++
	Loop


	GetTextCount = Count

End Function

コード: 全て選択

'全角チェック(Shift_JIS)
Function isZenkaku(c As Byte) As Long
	If (c > &h80 And c < &hA0) Or (c > &hCF And c < &hF0) Then isZenkaku = 1
End Function

'文字数カウント(Shift_JIS)
Function GetTextCount(Text As BytePtr) As Long
	Dim i As Long

	While Text
		If isZenkaku(Text) Then i++'文字が全角文字のとき
		i++
		GetTextCount++
	Wend

End Function

ISCharAlphaNumeric関数からIsDBCSLeadByte関数に変更するだけでよいと思います。
ただし判定方法は <> FALSEとなります。

コード: 全て選択

Declare Function GetTextCount CDECL lib "msvcrt" Alias "_mbslen" (str As *Byte) As Dword

これで良い

ab.com コミュニティ

文字数をカウントする

文字数をカウントする

Re: 文字数をカウントする

Re: 文字数をカウントする

Re: 文字数をカウントする