ASP,VBSでAccessデータベース操作 そのF 文字列検索

フォルダ内のサブフォルダ名やファイル名を同時に抽出、検索。

サブフォルダ名やファイル名を取得したが、そこからAccessデータ抽出条件と為る文字列を抽出したい。

Left、Mid、Right、Instr関数を駆使する。


[test6.asp]
<%@Language="VBScript" %>
<html>
<head>
<title>ドキュメント情報の表示</title>
<body>
<%
Dim q
Dim q1
q="4879HP.pdf"

If instr(q,"H")>0 Then
q1=Left(q,instr(q,"H")-1)
Else
q1=q
End if

Response.Write q1 & "<br>" &q

%>
</body>
</html>

"4879HP.pdf"の4879を抽出するためのプログラム。

q="4879HP.pdf"

If instr(q,"H")>0 Then
q1=Left(q,instr(q,"H")-1)
Else
q1=q
End if

q="4879HP.pdf"にHが含まれているかをinstr(q,"H")でチェックする。
instr関数は"H"の位置を返し、5と返すので、IF文を実行する。
"H"が無ければ0を返す。

q1=Left(q,instr(q,"H")-1)で、qの文字列の"H"の前(4番目)までの値をq1に入れるので"4879"が抽出される。

この方法で取得したファイル名を元にAccessファイルへアクセスして、情報を抽出する。



ASPでAccess操作TOP