[[20091107220612]]　『あいまい検索方法について』（ももすけ）　ページの最後に飛ぶ

『あいまい検索方法について』（ももすけ）

先ほどのブック間での列のドラック＆ドロップの件
は　無事解決しました。ありがとうございました。

すみませんが、別件で再度質問ですが、データ比較で
あいまい検索をしようと思ってます。

１）「あいうえおかきくけこ」
２）「うえおか」

上記の１）と２）を比較して２）の４文字が１）に
含まれていたら、ニアリーイコールとしてフラグを
つけたいと思ってます。
また、比較文字数が４文字だけではなく、任意に設定
出来るようにしたいのですが、どうやれば可能でしょうか？
Excel2003です。

よろしくお願いします。

 これは、いくつも方法がありますが、

 Sub sample()
    Dim str1 As String
    Dim str2 As String
    str1 = "あいうえおかきくけこ"
    str2 = "うえおか"
    If str1 Like "*" & str2 & "*" Then
       MsgBox str1 & "  には、  " & str2 & "　　があります"
    Else
       MsgBox str1 & "  には、  " & str2 & "　　がありません"
    End If
    If InStr(str1, str2) > 0 Then
       MsgBox str1 & "  には、  " & str2 & "　　があります"
    Else
       MsgBox str1 & "  には、  " & str2 & "　　がありません"
    End If
 End Sub

 参考にしてください。

 ichinose

すいません。
書き方がまずかったのですが、

 str1 = "１１あいうえおかきくけこ"
 str2 = "あいうえおかきく"

こんなようなデータの比較で、str2のデータの連続する４文字がstr1の中に
含まれていたら、ONのフラグを付けたいのですが。
データ数は１万件程度あり、それぞれデータが違います。
また、４文字や３文字など、文字数の指定が出来て、その文字数分が
str1にどの位置でも含まれていたら、ONフラグをつけたいのです。

 では、これを参考にしてください。

 Sub test()
  Dim a, b, c
  c = 3
  a = "１１えおaかaaaきfffくffけfこ"
  b = "あいうえおかきく"
  MsgBox "「" & a & "」　には、　「" & b & "」　の　" & c & "文字連続文字が" & IIf(spinstr(a, b, c), "含まれます", "含まれません")
  a = "１１えおかaaaきfffくffけfこ"
  b = "あいうえおかきく"
  MsgBox "「" & a & "」　には、　「" & b & "」　の　" & c & "文字連続文字が" & IIf(spinstr(a, b, c), "含まれます", "含まれません")
  a = "１１えおかきくけこ"
  b = "あい"
  MsgBox "「" & a & "」　には、　「" & b & "」　の　" & c & "文字連続文字が" & IIf(spinstr(a, b, c), "含まれます", "含まれません")
  a = "１１えおかきくけこ"
  b = "あいかきく"
  MsgBox "「" & a & "」　には、　「" & b & "」　の　" & c & "文字連続文字が" & IIf(spinstr(a, b, c), "含まれます", "含まれません")
 End Sub
 '===========================================================================================
 Function spinstr(ByVal str1 As String, ByVal str2 As String, ByVal strlen As Long) As Boolean
    Dim g0 As Long
    spinstr = False
    For g0 = 1 To Len(str2) - strlen + 1
       If InStr(str1, Mid(str2, g0, strlen)) Then
          spinstr = True
          Exit For
       End If
    Next
 End Function

 ichinose

有難う御座いました。
昨日から２日かけて、ようやく完成させる事が出来ました。
また、ご指導宜しくお願い致します。

コメント返信：

[ 一覧(最新更新順) ]

[[20091107220612]] 『あいまい検索方法について』（ももすけ） ページの最後に飛ぶ

[[20091107220612]]　『あいまい検索方法について』（ももすけ）　ページの最後に飛ぶ