出来るのだＡＳＰ Ｑ＆Ａ掲示板（過去ＬＯＧ） 　訪問数 52046 昨日 889 今日 776
     【PR】 パソコン入門からIT専門書まで幅広く取り揃えています。セブン-イレブン受取り手数料無料のセブンアンドワイ。
Topに戻る 掲示板に戻る 検索 削除 管理者
[5506] Re:汎用関数とか投函してみませんか？
投稿者：ビギナーズラックさん 2005/12/03 21:05:19
> ASPでいろいろサイト作ってると毎度つれて歩いてる汎用Functionとかたまってくるじゃないですか？
> そんなの投函してみませんか？
> 他のプロの方がどんなの持ち歩いてるか興味あります。
>

めんどくさいのでまとめてコピー(w

Function FileExistCheck(sFileName)
'*************************************************
'指定したパスにファイルが存在するかチェックする
'以下のどちらでも指定可能
'img/test.jpg
'c:\Inetpub\www\img\test.jpg
'戻り値 1エラー 0存在する
'*************************************************

On Error Resume Next

Dim objFSOCheck
Dim objTSCheck

Set objFSOCheck = CreateObject("Scripting.FileSystemObject")

If instr(1,sFileName,"\")<>0 then
Set objTSCheck = objFSOCheck.GetFile(sFileName)
Else
Set objTSCheck = objFSOCheck.GetFile(Server.MapPath(sFileName))
End If

If err.number <>0 then
FileExistCheck=1
Else
FileExistCheck=0
End If

Set objTSCheck = Nothing
Set objFSOCheck = Nothing

End Function


Function ExecAppWSH(apppath,param)
'*******************************************
'非表示でサーバの外部プログラム実行
'戻り値 0が正常
'*******************************************

On error resume next

Dim objWshShell
Set objWshShell=Server.CreateObject("WScript.Shell")

ExecAppWSH=objWshShell.Run(apppath & " " & param, 0, 1)

Set objWshShell = Nothing

End Function

Function vbCopy(moto,saki,intmode)
'*******************************************
'moto ---コピー元ファイルパス
'saki ---コピー先ファイルパス
'intMode ---モード
'1 ---> 移動 / 2---> コピー
'*******************************************
On Error Resume Next

Dim Fso
Dim CopyRtn

'ファイルのコピー
Set Fso = CreateObject("Scripting.FileSystemObject")

Select Case intmode
Case 1
CopyRtn=Fso.MoveFile(moto, saki)
Case 2
CopyRtn=Fso.CopyFile(moto, saki, TRUE)'上書許可TRUE/FALSE
Case Else
CopyRtn=Fso.MoveFile(moto, saki)

End Select

vbCopy=CopyRtn

Set Fso = Nothing


End Function

Function vbDelete(moto)
'*******************************************
'moto ---強制削除ファイルパス
'*******************************************
On Error Resume Next

Dim Fso
Dim CopyRtn


Set Fso = CreateObject("Scripting.FileSystemObject")

CopyRtn=Fso.DeleteFile(moto, true)

vbDelete=CopyRtn

Set Fso = Nothing

End Function


Function CheckData(str,pattern)
'**********************************
'入力されたデータをチェックする
'引数 str pattern
'戻り値 TRUE OK False NG
'**********************************
On error resume next

Set re = New RegExp

re.Pattern =pattern
re.Global = True
re.IgnoreCase = True
CheckData=re.Test(str)

End Function



Function EndCutString(strCut,strCheck)
'**********************************
'strCutのstrCheckより後の文字を返す
'test@docomo.ne.jp →@指定時 docomo.ne.jp
'**********************************
On Error Resume next

Dim tmpStrCnt
Dim strtmpCut

tmpStrCnt = InStr(1, strCut, strCheck)
If tmpStrCnt<>0 Then
strtmpCut = Mid(strCut, tmpStrCnt + 1)
Else
EndCutString=-1
Exit Function
End If
EndCutString = strtmpCut

End Function

Function FirstCutString(strCut,strCheck)
'**********************************
'strCutのstrCheckより前の文字を返す
'test@docomo.ne.jp →@指定時 test
'**********************************
On Error Resume next

Dim tmpStrCnt
Dim strtmpCut

tmpStrCnt = InStr(1, strCut, strCheck)

If tmpStrCnt<>0 Then
strtmpCut = left(strCut, tmpStrCnt - 1)
Else
FirstCutString=-1
Exit Function
End If
FirstCutString = strtmpCut

End Function
汎用関数とか投函してみませんか？ 　 ビギナーズラックさん [2005/11/30 12:59:52] [5496]
　 Re:汎用関数とか投函してみませんか？ 　 YasNet（管理人）さん [2005/12/01 12:08:01] [5498]
　 　 Re:汎用関数とか投函してみませんか？ 　 YasNet（管理人）さん [2005/12/03 17:52:48] [5503]
　 　 　 Re:汎用関数とか投函してみませんか？ 　 YasNet（管理人）さん [2005/12/30 18:14:07] [5563]
　 Re:汎用関数とか投函してみませんか？ 　 ビギナーズラックさん [2005/12/03 20:54:26] [5504]
　 　 Re:汎用関数とか投函してみませんか？ 　 ビギナーズラックさん [2005/12/15 1:39:51] [5524]
　 Re:汎用関数とか投函してみませんか？ 　 ビギナーズラックさん [2005/12/03 20:57:01] [5505]
　 Re:汎用関数とか投函してみませんか？ 　 ビギナーズラックさん [2005/12/03 21:05:19] [5506]

TreeBBS For ASP V.0.1.3
Program By ＹａｓＮｅｔ