VBA は、言語体系的に古い言語です。そのため文字列比較 大文字小文字を無視して比較するためにはサブルーチンを書かないといけなくなります。

例えば、大文字小文字比較は、
perl 言語で言えば、=~/xxx/ig
php 言語で言えば、strcasecmp

html 解析などで href を検索する場合

if buff=”href” then

ですが、ソースが HREF と大文字で書かれていたら、あるいは、Href などと混在していたら 結果は False です。

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

• ライブラリー名
  vcmp
  
  
• 種類
  Function
  
  
• 書式
  戻り = vcmp.ig(比較文字列,比較文字列)
  
  
• 戻り
  0:一致
  0以外:不一致
  
  
• 例
  
  buff = "href"<br /> work = "Href"<br /> If vcmp.ig(buff,work)=0 then<br /> print "一致"<br /> Else<br /> print "不一致"<br /> Endi If<br /> If buff = work then<br /> print "一致"<br /> Else<br /> print "不一致"<br /> Endi If<br />
  buff = "href"
  
  work = "Href"
  
  If vcmp.ig(buff,work)=0 then
  
  print "一致"
  
  Else
  
  print "不一致"
  
  Endi If
  
  If buff = work then
  
  print "一致"
  
  Else
  
  print "不一致"
  
  Endi If
  
  
  
  
• 結果
  一致
  不一致
  
  
• ソース
  
  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 (278 ダウンロード )