素人です。解決時500PT

アクセスで以下の通りの文字列で置き換えをしようとしましたら、うまく行きません。
改行を含んでいるからだと思うのですが、
データから改行を取り去る方法があると以下のURLで教えていただきました。
http://q.hatena.ne.jp/1156520575
しかし、手順が分かりません。
詳しい手順を教えていただけないでしょうか

↓こちらを↓
ter>
<table width="85%" bgcolor="#CCCCF

↓こちらに変換する↓
ter><b><Font Size="3" Color="#ff6600">ようこそ!<br><br></Font></b><table width="85%" bgcolor="#CCCCF

回答の条件
  • 1人2回まで
  • 登録:2006/08/28 19:34:11
  • 終了:2006/08/29 21:17:19

回答(3件)

id:kissmint No.1

kissmint回答回数5ベストアンサー獲得回数02006/08/28 21:16:40

ポイント6pt

アクセスで変換したい文字列がはいっている変数にREPLACE関数を使えば改行を削除できます

private sub formLoad()

sData = test(改行を消したい文字列)

end sub

Public Function test(sData as string) as string

sData = replace(sData ,vbcrlf,"")

end Function

id:llusall No.2

llusall回答回数505ベストアンサー獲得回数612006/08/29 09:38:39

VBAとクエリで置換するサンプルを紹介します。


「テーブル1」というテーブルにある、「Z367L」というフィールドを置換する例です。

適宜、変更するなどして対応してください。


前提

データの入っているテーブルを「テーブル1」とします。

データの入っているフィールドを「Z367L」とします。


■VBA 置換用の関数を作成

1.データベースウィンドウの「モジュール」を押し(アクティブにして)、[新規作成]を押します。

  Microsoft Visual Basic のエディタが開かれます。


2.以下関数をコピーして貼り付けます。(追加します)

'文字列を整える関数

Public Function ChangeChr(ByVal s As String) As String

    Dim x As String

    ChangeChr = ""

    '改行は、スペース1つに置換

    s = Replace(s, vbCrLf, " ")


'ここから  この処理が不要の場合は、シングルクウォーテーションでコメントとしてください。

    'スペース2つは、1つに置換

    x = ""

    Do Until s = x

        x = s

        s = Replace(s, "  ", " ")

    Loop

'ここまで


    ChangeChr = s

End Function

3.保存します。(メニューの[ファイル]より、[XXXXXの上書き保存]を押す)

  そして、エディタを閉じます。


■更新クエリ作成

1.データベースウィンドウの「クエリ」を押し(アクティブにして)、[新規作成]を押します。

  [新しいクエリ]ダイアログが表示されますので、[デザインビュー]を選択して、OKを押します。


2.テーブルの選択

  [テーブルの表示]ダイアログが表示されますので、対象とする[テーブル1]を選択して、追加を押します。

  そして、ダイアログを閉じます。


3.更新クエリにする

  メニューの[クエリ]より、[更新]を押して、更新クエリにします。


4.置換するフィールドの追加

  [テーブル1]より、置換するフィールドの[Z367L]をダブルクリックして、グリッド列に追加します。


5.関数のセット

  グリッド列の[レコードの更新]というところに、

     ChangeChr([Z367L])

  を入力します。


6.更新クエリの実行

  メニューの[クエリ]より、[実行]を押して、更新クエリを実行します。


※なお、たくさんポイント頂いているので、ポイント不要です。

id:y7ujmnhy

ありがとうございます。

■VBA 置換用の関数を作成

は分かりました。

3。の保存ができたのでそのモジュールを開いたところをキャプチャしました。

http://briefcase.yahoo.co.jp/bc/kaiya999/lst?&.dir=/%a5%de%a...

(001.bmpです。)

■更新クエリ作成

で1.2.3.は分かりました。

しかし、4でつまづきました。

上記 ブリーフケースの002.bmpの赤丸で囲んでいる位置をWクリックしましたが

何も反応がありませんでした。

5.6.は003.bmpの画面の中での操作の事だと思うのでできそうです。

また、改行を削除したいのは7000レコードの中の1000レコードほどで、

上記の処理でも一括して削除というのが可能でしょうか?

どうぞよろしくお願いします。

2006/08/29 14:12:20
id:llusall No.3

llusall回答回数505ベストアンサー獲得回数612006/08/29 18:06:35

ポイント500pt

こちらのような感じでクエリを作成して、実行してみてください。

id:y7ujmnhy

ありがとうございます!

できました。

本当に助かりました。

2006/08/29 21:16:28
  • id:llusall
    よかったです。
    私、説明が下手なものですから。
    ほんとうによかったです。
    また、沢山のポイントありがとうございました。
  • id:y7ujmnhy
    こちらこそありがとうございました。
    とても分かりやすかったです。
    また何かあったときはよければアドバイスよろしくお願いします!

この質問への反応(ブックマークコメント)

「あの人に答えてほしい」「この質問はあの人が答えられそう」というときに、回答リクエストを送ってみてましょう。

これ以上回答リクエストを送信することはできません。制限について

絞り込み :
はてなココの「ともだち」を表示します。
回答リクエストを送信したユーザーはいません