• @知識の歪 [428]
  • 野球を見ようか [308]
    • 2004年 シーズン [6]
    • 2005年 開幕前 [10]
    • 2005年 前半戦 [37]
    • 2006年 開幕前 [16]
    • 2006年 前半戦 [88]
    • 2006年 後半戦 [10]
    • 2007年 前半戦 [84]
    • 2009年 シーズン [5]
  • 日記っぽいもの [15]
  • 断食してみた [19]
  • テキトーに園芸 [16]
  • 伯耆流居合兵法 [4]
  • 風景写真とか [11]
    • 野球の風景 [6]
    • 廃墟の風景 [1]
    • 季節の風景 [1]
    • スライドショー [3]
  • 放射化学か？ [4]
  • 技術的なメモ [51]
    • Access [11]
    • Blosxom [37]
    • GTD [1]
    • 手帳 [1]
    • Windows [1]

• [手帳] MOLESKINE + ONBOOK
• [居合] 姿勢について
• [園芸] やっとこ収穫してみた。
• [居合] 板につくために。
• [園芸] パセリを再セットアップ。
• [園芸] 昼間の光の下で見たい成長っぷり。
• [園芸] 秋らしくなってきたが、野菜は育つ。

[Access] 半角全角混じりの文字列をぴったり60Byteに揃える

posted at 2009-09-30(Wed) 21:00 in 技術的なメモ::Access [Edit]

下の例ではmcntDetail(定数),mrst!ItemName(レコードセットから取り出した品名)を60byteまで削るか、60byte以下ならスペースで補完して返す。 固定長テキストの作成時のサンプル。

Dim i       As Long
Dim strTemp As String
Dim str     As String

strTemp = mcntDetail & " " & mrst!ItemName
i = LenB(StrConv(strTemp, vbFromUnicode))
If (i > 60) Then
    Do Until (i <= 60)
        strDetail = Left(strTemp, Len(strTemp) - 1) 'LENで削り、LENBでカウント
        i = LenB(StrConv(strTemp, vbFromUnicode))   '全角文字がLENBで切断されるとNULL文字が発生する
    Loop
End If
i = 60 - LenB(StrConv(strTemp, vbFromUnicode)) '不足分を補完
str = str &strTemp & Space(i)                  'ぴったり60Byteに