【Access2000】文字列の操作について

Question

Access2000で文字列の操作について質問です。
前任者が突然退職してしまったため、やり方が分からず困っています。。。

■文字列の操作について
姓(フリガナ)と名(フリガナ)の文字列を下記仕様に変換したいと思います。

【変換前】
　　姓(フリガナ)　名(フリガナ)
　　　⇒全角カナで2つの項目に分かれている
　　　　　　
【変換後】
　　姓名(フリガナ)
　　　⇒それぞれ半角カナに変換し、1つの項目に結合する
　　　⇒結合後のバイト長は30バイト、右詰で空白は半角スペースで埋める


■レコードのカウント処理について
・条件に合致したレコード数をカウント
・レコード数を右詰にし、前に0をつける（12バイト）

Accessに詳しい方、ご返答いただけると助かります。

CHRONOS_0 · Accepted Answer

>一度テーブルに出力して、それをファイルに出力しようと
ワークテーブルを作るのはかなり特殊な場合だけですね
普通はクエリで済ませてしまいます

>上記の4つの結果を一つのファイルに出力するのが最終目的です。
4つのテーブルの関係が分かりませんね
つなげられるフィールドはあるのですか?

>C.トレーラ情報
カウントも合計も集計クエリでできますね
その集計クエリをつなげればいいのでは

CHRONOS_0 · Answer

>レコードのカウント処理はどのようにやれば良いでしょうか？
普通に考えれば集計クエリですが
どこにどのように出したいのかが分からないと回答できませんね
前0をつけるのは
前の回答のスペースを付加するのと同じことです

CHRONOS_0 · Answer

>別システムへの流し込みデータを生成するためです。
こういう目的ならクエリでいいんじゃないですか

全角カナ=>半角カナ変換はStrConv関数です

固定長文字にするのは前か後ろにスペースをたっぷりつけてから30文字だけ切り出せばいいのです


[姓名(フリガナ)]:Left(StrCnv([姓(フリガナ)] & [名(フリガナ)],8) & Space(30),30)

CHRONOS_0 · Answer

>　　　⇒それぞれ半角カナに変換し、1つの項目に結合する
ひとつにする理由は？
別れたままでも表示時などに簡単に結合できますよ
半角カナはコンピュータの世界では異端児です全角のままの方がいいのでは

>　　　⇒結合後のバイト長は30バイト、右詰で空白は半角スペースで埋める
固定長にする理由は？
可変長の方がメモリー効率もいいですよ
それにAccessでは１文字2バイトです30バイトじゃ15文字
姓名のフリガナ文字数としては足りないんじゃないの

BleuLune · Answer

先ほどに続き連投になりすみません。
■文字列の操作について
上記の例で間違いを見つけました。
StrConvはDo　Whileの前に行う必要があります。
すみませんでした。

BleuLune · Answer

■文字列の操作について
LastName = 姓の項目値
FirstName = 名の項目値

TempKanaName = LastName & FirstName
Do While Len(TempKanaName)<31
   TempKanaName = ResultKanaName & " "
End Loop

ResultKanaName = StrConv(TempKanaName ,vbNarrow)

■レコードのカウント処理について
Dim DB As DAO.Database
Dim RS As DAO.Recordset
Dim RecordCount as Integer
Dim Num_I as Integer
Dim ResultCount as String
Dim ZeroSurpress as String
　　　
Set DB = CurrentDb()
Set RS = Db.OpenRecordset("なんとかテーブル",dbopenDynaset)

RecordCount  = RS.count
ZeroSurpress = "0"
For Num_I = 1 to 12 - Len(Str(RecordCount))
    ResultCount = ResultCount  & ZeroSurpress
Next
ResultCount = ResultCount & Str(RecordCount)

VBA は久しぶりなので、細かい記述に間違いがあったときはご容赦ください。
ロジックはこのようなもので実現できるかと思いますが、いかがでしょうか。

基本がJAVAなので、VBAとしては汚いソースですみません。

参考になれば幸いです。

noname#140971 · Answer

? SetR(1, "000000000000")
000000000001

チト、例を判りやすく・・・。

noname#140971 · Answer

[イミディエイト]
? SetR(StrConv("スズキ イチロウ", 8), "----+----1----+----2----+----3")
----+----1----+----2-スズキ イチロウ
? SetR(1, "----+----1--")
----+----1-1

自宅からの回答なので、Access2000 ではなくExcel2003で検証しただけですが・・・。
このようなことを実現したいのでしょう。

ここでは、次の SetR() を利用しています。

Public Function SetR(ByVal Text1 As String, ByVal Text2 As String) As String
　　Dim I As Integer
　　Dim J As Integer
　　Dim L As Integer
　　Dim M As Integer
　　Dim N As Integer

　　J = Len(Text1)
　　L = LenH(Text2)
　　For I = 1 To J
　　　　M = LenH(Mid$(Text1, 1, I))
　　　　If M > L Then
　　　　　　SetR = Left$(Text2, L - N) & Left$(Text1, I - 1)
　　　　　　Exit Function
　　　　Else
　　　　　　N = M
　　　　End If
　　Next I
　　SetR = Left$(Text2, L - N) & Text1
End Function

Private Function LenH(ByVal Text As String) As Integer
　　LenH = LenB(StrConv(Text, vbFromUnicode))
End Function

kiyo1 · Answer

【変換後】
　　姓名(フリガナ)
　　　⇒それぞれ半角カナに変換し、1つの項目に結合する
　　　⇒結合後のバイト長は30バイト、右詰で空白は半角スペースで埋める

上記は比較的簡単に行えますが、結合後に30バイト以上の場合はどうしますか？

【Access2000】文字列の操作について

>一度テーブルに出力して、それをファイルに出力しようと

>レコードのカウント処理はどのようにやれば良いでしょうか？

>別システムへの流し込みデータを生成するためです。

> ⇒それぞれ半角カナに変換し、1つの項目に結合する

先ほどに続き連投になりすみません。

■文字列の操作について

? SetR(1, "000000000000")

[イミディエイト]

【変換後】

似たような質問が見つかりました

関連するカテゴリからQ&Aを探す

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング

>　　　⇒それぞれ半角カナに変換し、1つの項目に結合する