![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?e8efa67)
![](http://oshiete.xgoo.jp/images/v2/common/profile/M/noimageicon_setting_11.png?e8efa67)
編物用の洋書を日本語に変換するものを作っています
文字を置き換えするときに
aaを11に
aaaaを2222に置き換えたいのですが
Str = RichTextBox1.Text
RichTextBox2.Text = str.Replace("aa", "11").Replace("aaaa", "2222")
と書くと aaaaが1111に置き換えられます
RichTextBox2.Text = str.Replace("aaaa", "2222").Replace("aa", "11")
と書けばよいのですが、置き換える単語は、もっと沢山あって・・・・
完全一致の単語を置き換えるという書き方は、有るのでしょうか?
あれば、是非教えてください
よろしくお願いいたします
No.2ベストアンサー
- 回答日時:
正規表現オブジェクトを使う方法があります。
応用範囲が広く、覚えておくと便利です。
Function 置換(ByVal 文字列 As String)
Dim R
Set R = CreateObject("VBScript.RegExp")
R.Pattern = "\baa\b"
文字列 = R.Replace(文字列, "11") '1回目の置換
R.Pattern = "\baaaa\b"
置換 = R.Replace(文字列, "1111") '2回目の置換
End Function
単語とあるので、aaaaやaaの前後には空白などの境界があると
判断しました。正規表現中の\bはその意味です。
もし、"aa"と"aaaa"(前後に空白などがない)のであれば、
正規表現を"^aa$"とします。
正規表現オブジェクトは下記参照
http://msdn.microsoft.com/ja-jp/library/cc392487 …
正規表現の構文は下記参照
http://msdn.microsoft.com/ja-jp/library/cc392020 …
No.4
- 回答日時:
置き換える対象となる文字列の長い順に処理すればいいわけですから、
以下のようにしてみては同でしょうか?
Module Module1
Sub Main()
Dim replaceList As New List(Of Replacement)
replaceList.Add(New Replacement("aa", "11"))
replaceList.Add(New Replacement("aaaa", "2222"))
replaceList.Add(New Replacement("aaa", "333"))
replaceList.Add(New Replacement("a", "4"))
replaceList.Add(New Replacement("aa", "55"))
replaceList.Sort(AddressOf SortDesc)
For Each items In replaceList
Console.WriteLine(items.Target)
Next
Console.ReadLine()
End Sub
''' <summary>
''' 文字長の長い順にソート
''' </summary>
Function SortDesc(ByVal x As Replacement, ByVal y As Replacement) As Integer
Return (y.Target.Length - x.Target.Length)
End Function
Public Class Replacement
Public Sub New(ByVal t As String, ByVal s As String)
Me._setValue = s
Me._target = t
End Sub
Private _target As String
''' <summary>
''' 置換え対象
''' </summary>
Public Property Target() As String
Get
Return _target
End Get
Set(ByVal value As String)
_target = value
End Set
End Property
Private _setValue As String
''' <summary>
''' 置換え内容
''' </summary>
Public Property SetValue() As String
Get
Return _setValue
End Get
Set(ByVal value As String)
_setValue = value
End Set
End Property
End Class
End Module
No.3
- 回答日時:
う~ん、例が適切ではないのかな?
ちょっとやりたい事が見えないです。
純粋に、海外文書の翻訳?
単語置換えしても翻訳の助けにはならないような気がするし、翻訳ソフトを通した方がはるかにマシだし。
(翻訳ソフトの売ってない言語ってのもあり得ますが)
それとも『編物用』ってのがミソで、網目表(とでも言えばいいのかな?)が、原書と日本で使用されているもので表現が異なり、当然翻訳ソフトも使用できないので困っているというところでしょうか?
変換表を用意しておいて、変換元の単語(?)の長い順に置き換えすれば何とかなるかな?
という予想もありますが、変換先の単語内に変換元の単語が含まれていない事が保証されるかどうか、という仕様上の問題もありますね。
この回答への補足
ありがとうございます
まだまだ、初心者で、VB自体を使いこなせてないので
質問自体が稚拙な事なのかもわかりませんが・・・・・
そうなんです
編物をされていないと分かりずらいかと思いますが
例えば
K と書いてあると、表目で
k up と書いてあると、引き上げ編み
という編み方をしてください
という意味なんです
単語も、全部分かっている訳でなく
以降、追加していこうと思っています。
>変換表を用意しておいて
ということで、データーベース化することにしました。
まだまだ、ですが、
他の方の回答も踏まえて、頑張ってみたいと思います
ありがとうございました
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) Excel VBA 教えてください。 VBA初心者です。 詳しい方がいましたら教えてください。 下記 3 2023/04/25 11:22
- Visual Basic(VBA) EXCEL VBA 単語置き換え について質問です ブック名 ぶぶぶ シート名 ししし セル V3〜 3 2023/03/08 01:41
- Visual Basic(VBA) エクセルのマクロについて教えてください。 4 2023/07/03 09:11
- Access(アクセス) Accessで、『"A"以外の場合"--"に置き換える』という作業をしたいのですが、良い方法はありま 1 2022/06/07 19:30
- Visual Basic(VBA) エクセルのマクロについて教えてください。 7 2023/07/04 09:18
- Visual Basic(VBA) Excel VBAでAA(BBB) → BBB.AA に置換したい 2 2022/10/30 13:59
- Access(アクセス) Accessのテキストボックスの入力文字制限 1 2023/01/18 20:43
- Access(アクセス) Accessのクエリで、replace関数を使い、データの中にある”をブランクに置き換えたいのですが 6 2022/06/15 14:54
- Visual Basic(VBA) Excel VBA メール作成について 本文の中にExcel でコピーした図を上下に2つ 貼り付けを 2 2023/06/14 01:48
- ドイツ語 Rechtfertigung とは何だ? 2 2023/08/22 17:43
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Excel VBAでPDFファイルをMicro...
-
CString から LPCTSTRの型に変換
-
文字コードの%E3%80%とは何です...
-
Encode.pmで「髙」(ハシゴ高)...
-
ローマ字からカナに変換する方...
-
シェルスクリプトで文字列置換
-
日本語→ギリシャ語翻訳サイト
-
Visual Studio プロパティペー...
-
ウイザードからのVBAでクエリー...
-
DAC ICについて
-
【PHP】全角記号を半角記号...
-
Delphiの型変換
-
テキストボックス内の文字の置...
-
スマホの予測変換について
-
CSVファイルの中で、「 , 」カ...
-
英数字のみ全角から半角に変換
-
word差し込み印刷 半角カタカ...
-
全角英数字の必要性が理解できない
-
エクセルで数値を全角文字(カ...
-
ダブルコーテーションの置換
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excel VBAでPDFファイルをMicro...
-
文字コードの%E3%80%とは何です...
-
CString から LPCTSTRの型に変換
-
VB6にも「ToString」ってあり...
-
gccでiconvを使った文字コード...
-
VBScript文字列をSJISからUTF8...
-
SJIS->UTF8->SJISコード変換に...
-
ローマ字からカナに変換する方...
-
シャープ(#)の受け渡し
-
文字列を quoted-printable 文...
-
Encode.pmで「髙」(ハシゴ高)...
-
LINUX上でシリアル通信(C++)
-
ローマ数字の変換をしたいのですが
-
Kシェルでの文字型→数値型変換
-
テキストをhtml変換するには
-
ひらがなから全角カタカナへの...
-
Delphiの型変換
-
SQLのデータで半角カナを全角に...
-
CString型からdouble型への変換
-
五十音の並べ替えsortを教えて...
おすすめ情報