文字操作 ローカルパス[¥]をサーバ用パス[/]へ変更
※より実装に近く表示させる為、コードの改行を避けています。スマホ等で閲覧される際は向きを変えてご覧ください。
※実装するバージョンによってはバージョンアップの仕様により動作しないコードもあります。実装には動作確認の上ご使用下さい。
Function PathSignChangeS(strPath As String) As String '***************************************** 'ローカルパス[\]をサーバ用パス[/]へ変更 '***************************************** Dim cntLen As Long Dim cntByt As Long '文字列中に2byte文字が含まれているか判定 cntLen = Len(strPath) cntByt = LenB(StrConv(strPath, vbFromUnicode)) If (cntLen <> cntByt) Then MsgBox "2byte文字が含まれています！", vbCritical, "PathSignChange" PathSignChangeS = "" Else PathSignChangeS = Replace(strPath, "\", "/") End If End Function Function PathSignChangeE(strPath As String) As String '***************************************** 'サーバ用パス[/]をローカルパス[\]へ変更 '***************************************** Dim cntLen As Long Dim cntByt As Long '文字列中に2byte文字が含まれているか判定 cntLen = Len(strPath) cntByt = LenB(StrConv(strPath, vbFromUnicode)) If (cntLen <> cntByt) Then MsgBox "2byte文字が含まれています！", vbCritical, "PathSignChange" PathSignChangeE = "" Else PathSignChangeE = Replace(strPath, "/", "\") End If End Function Private Sub testS() MsgBox PathSignChangeS("K\06\PR\exe\www\XXX") End Sub Private Sub testE() MsgBox PathSignChangeE("K/06\PR/exe/www/XXX") End Sub |