VBA Instr ではできない文字列検索を行いたい場面がよくあります。

perl 言語で言えば、index
php 言語で言えば、strpos

例えば、html 解析などで a タグを検索する場合

p = InStr(buff,”<a”)

ですが、ソースが <A と大文字で書かれていたら、あるいは、混在していたら InStr では対応できません。

大文字小文字を考慮せず文字列を検索する　汎用ライブラリ sPos

• ライブラリー名
  vcmp
  
• 種類
  Function
  
• 書式
  戻り = sPos(検索対象文字列,検索文字列)
  
• 例
  buff = “<img src=””～””><A HREF=””～””><br /><a href=””～””>”
  p = vcmp.sPos(buff,”<a”)
  print mid(buff,p)
  p = InStr(buff,”<a”)
  print mid(buff,p)
  
• 結果
  <A HREF=””～””><br /><a href=””～””>”
  <a href=””～””>”
  
• ソース
  
  Function ig(iStr0, iStr1)<br /> '<br /> '大文字小文字無視比較<br /> '<br /> 'If vcmp.ig(buff,work)=0 then<br /> '<br /> 'Endi If<br /> '<br /> Dim cStr0, cStr1<br /> cStr0 = LCase(toStr.toStr(iStr0))<br /> cStr1 = LCase(toStr.toStr(iStr1))<br /> If cStr0 = cStr1 Then<br /> ig = 0<br /> Else<br /> ig = 1<br /> End If<br />End Function<br /><br />Function sPos(iStr, iTrg)<br /> sPos = ig_pos(iStr, iTrg)<br />End Function<br /><br />Function ig_pos(iStr, iTrg)<br /> '大文字小文字無視位置検索<br /> '<br /> 'dim p<br /> '<br /> 'p = vcmp.ig_pos(buff,work)<br /> '<br /> Dim cStrV, cTrgV<br /> cStrV = LCase(toStr.toStr(iStr))<br /> cTrgV = LCase(toStr.toStr(iTrg))<br /> ig_pos = InStr(cStrV, cTrgV)<br />End Function<br />
  Function ig(iStr0, iStr1)
  
  '
  
  '大文字小文字無視比較
  
  '
  
  'If vcmp.ig(buff,work)=0 then
  
  '
  
  'Endi If
  
  '
  
  Dim cStr0, cStr1
  
  cStr0 = LCase(toStr.toStr(iStr0))
  
  cStr1 = LCase(toStr.toStr(iStr1))
  
  If cStr0 = cStr1 Then
  
  ig = 0
  
  Else
  
  ig = 1
  
  End If
  
  End Function
  
  Function sPos(iStr, iTrg)
  
  sPos = ig_pos(iStr, iTrg)
  
  End Function
  
  Function ig_pos(iStr, iTrg)
  
  '大文字小文字無視位置検索
  
  '
  
  'dim p
  
  '
  
  'p = vcmp.ig_pos(buff,work)
  
  '
  
  Dim cStrV, cTrgV
  
  cStrV = LCase(toStr.toStr(iStr))
  
  cTrgV = LCase(toStr.toStr(iTrg))
  
  ig_pos = InStr(cStrV, cTrgV)
  
  End Function
  
  
  

vcmp.bas ダウンロード

vcmp.zip (276 ダウンロード )