Access VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

20 / 500 ﾍﾟｰｼﾞ

←次へ　｜　前へ→


	【12926】Re:指定文字数にしたい

かるびの - 16/1/16(土) 16:34 -


	引用なし

	パスワード

>今回は半角文字の対応はしなくても大丈夫そうなのですが、これをきちんと出す方法があれば、 >後学のために教えていただけるとうれしいです。　これへの対応方法について興味が湧いたので、その対応方法を考えてみました。　細かな処理を要するので、関数化します。 Function FnGetStr(ByVal strUni As String _ 　　　　　　　　, lngJisLen As Long _ 　　　　　　　　, strAddFull As String _ 　　　　　　　　, strAddHalf As String) As String 'UnicodeのstrUni文字列から、Shift-Jisで数えてlngJisLen分のバイト数の文字列を切り出す関数 '引数　strUni　文字列の切り出し元となるUnicodeの文字列） '　　　lngJisLen　切り出すバイト数（Shift-Jisで計算） '　　　strAddFull　strUniがlngJisLenより短い場合に付加する全角の文字 '　　 strAddHalf　strUniのバイト数が奇数になる場合に付加する半角の文字 '返り値　UnicodeのstrUni文字列から、Shift-Jisで数えてlngJisLen分のバイト数分を取り出した文字列（Unicode）　　　　Dim i As Long 　　Dim strJis(1) As String　　'添え字：0=前回ループ、1=今回ループ　　　　　　Dim lngLen As Long 　　Dim strRslt As String 　　Dim strDbgUni As String　　'デバッグ用　　　　'strUniがlngJisLenよりも短い場合に備えて、全角文字を付加　　strUni = strUni & String(lngJisLen, strAddFull) 　　　　'Shift-JisによるstrUniのバイト数を調査。　　For i = Int(lngJisLen / 2) To Len(strUni) 　　　　strJis(1) = Left(strUni, i) 　　　　strJis(1) = StrConv(strJis(1), vbFromUnicode) 　　　　　　　　If (LenB(strJis(1)) > lngJisLen) Then 　　　　　　Exit For 　　　　End If 　　　　　　　　strJis(0) = strJis(1) 　　　　　　　　strDbgUni = StrConv(strJis(0), vbUnicode)　'デバッグ用　　Next i 　　'strUniから該当部分を切り出す。　　strRslt = Left(strUni, i - 1) 　　lngLen = LenB(strJis(0)) 　　'Shift-Jisのバイト数が奇数になってしまう場合に備えて、半角文字を追加　　If lngJisLen - lngLen = 1 Then 　　　　strRslt = strRslt & strAddHalf 　　End If 　　　　FnGetStr = strRslt End Function