テキストボックス内の文字の置き換え

置き換える対象となる文字列の長い順に処理すればいいわけですから、
以下のようにしてみては同でしょうか？

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

投稿日時 - 2010-03-19 12:42:14

う～ん、例が適切ではないのかな？
ちょっとやりたい事が見えないです。
純粋に、海外文書の翻訳？
単語置換えしても翻訳の助けにはならないような気がするし、翻訳ソフトを通した方がはるかにマシだし。
(翻訳ソフトの売ってない言語ってのもあり得ますが)

それとも『編物用』ってのがミソで、網目表(とでも言えばいいのかな？)が、原書と日本で使用されているもので表現が異なり、当然翻訳ソフトも使用できないので困っているというところでしょうか？

変換表を用意しておいて、変換元の単語(?)の長い順に置き換えすれば何とかなるかな？
という予想もありますが、変換先の単語内に変換元の単語が含まれていない事が保証されるかどうか、という仕様上の問題もありますね。

投稿日時 - 2010-03-19 12:09:48

変換する文字列を変換優先順に配列に定義して
ループで回し順次変換すればよいかと思います。

投稿日時 - 2010-03-19 11:37:02