シーケンシャルアクセスについて教えてください。
テキストファイルの内容が...
***************************************************
aaa bbb ccc ddddd eeeee
aあ bbb ccc ddddd eeeee
***************************************************
空白の部分(aとbの間)にはタブが入っています
このテキストファイルをアクセス2000において
テーブルにインポートする場合
Open...AS #1 'テキストオープン
set ... 'データベース・テーブルオープン
input #1 rireki
Mytable![項目名] = Mid(rireki, 1, 3)
上のような感じでテキストのデータをテーブルに取り込もうとすると
2行目の"aあ"の"あ"が全角なので"aあ"以外の空白も取り込んでしまいます
どうすれば全角を半角2桁として取り出すことが出来ますか?
宜しくお願い致します。
No.2ベストアンサー
- 回答日時:
こんにちは。
maruru01です。区切りが必ずタブなら、
文字数ではなく区切りごとに取り出す方法はどうでしょうか?
これは、Splitという関数で、配列に格納出来ます。
Dim Youso As Variant
Youso = Split(rireki, vbTab)
これで、2行目なら
Youso(0) = aあ
Youso(1) = bbb
・・・以下略
と入ります。
また、単純にテキストファイルのデータをテーブルに取り込むだけでしたら、
インポート定義を作成して、ファイルのインポートをするという方法もあります。
DoCmd.TransferText acImportDelim, インポート定義名, テーブル名, テキストファイル名
なおインポート定義の作り方は、実際にメニューの[ファイル]→[外部データの取り込み]→[インポート]でテキストファイルのインポートウィザードを起動させます。
そして、[設定]に入ってそこで定義の詳細設定をして[保存]します。(実際にインポートまでする必要はありません。)
この時の保存名を、文字列で上の式の"インポート定義名"に使用します。
ちなみにこの場合はテーブルのレコードセットを開く必要はありません。
では。
No.1
- 回答日時:
全角を半角2桁として計算したいのであれば、
Mid(rireki, 1, 3)
を
MidB(rireki, 1, 3)
の関数を使えば良いと思いますが。
一度ヘルプを確認してみて下さい。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・人生のプチ美学を教えてください!!
- ・10秒目をつむったら…
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・【大喜利】【投稿~9/18】 おとぎ話『桃太郎』の知られざるエピソード
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
(ACCESS)複数mdbからのデータ...
-
ACCESS テーブルに2行目から取...
-
リソースファイルとロケールに...
-
アクセス初心者に注意点を教え...
-
エクセルからアクセスにインポ...
-
Access2019でフォームから入力...
-
データ読込時のタイムアウト
-
テーブルのリンク(ACCESS)
-
csvをSQLiteに取り込むと文字化...
-
VBでCSVデータをMDB
-
Viewにインデックスは張れ...
-
Access レコードを追加できませ...
-
データを削除しても表領域の使...
-
ORA-00959: 表領域'****'は...
-
同じSELECT文同士でのデ...
-
viewのバックアップ
-
ACCESS 複数テーブル・複数フィ...
-
postgreSQLのint型は桁数指定が...
-
異なるスキーマからデータを抽...
-
DELETE文でFROM句を省略した場合
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルからアクセスにインポ...
-
ACCESS テーブルに2行目から取...
-
テーブルのリンク(ACCESS)
-
C#でaccdbファイルのテーブルの...
-
他ファイルのテーブルの情報を...
-
(ACCESS)複数mdbからのデータ...
-
アクセスマクロで、csv データ...
-
Access2019でフォームから入力...
-
グループ単位にCSVファイル...
-
データ読込時のタイムアウト
-
VBでCSVデータをMDB
-
アクセス初心者に注意点を教え...
-
画面から入力した値がDBに登録...
-
リソースファイルとロケールに...
-
ACCESSのVBAを利用して、Excel...
-
Accessでボタンを押したらエク...
-
ACCESSとエクセルのリン...
-
[PG]AccessVBAでファイルのイン...
-
データベースの保存と読み込み...
-
アクセス2007 エクセルへエク...
おすすめ情報