strSpCut.bas
ものすごく簡単なことなのですが、例えば、Activeworkbook.path の最後には、￥が付かない。

プログラム全体でそれをどう定義するかという基本的なプログラム設計は、毎回あいまいだったりします。

path であれば、グローバル変数で１つ設定しておけば案外統一されるのですが、今度は、そのグローバル変数の最後には￥があるのかないのかといった問題が出てきます。

また、文字列前方の空白の削除、後方の空白削除なども簡単なループで済みますが、それをいちいち書いているといくら小さくても工数の無駄になりますし、ソースが長くなります。

文字列の最後に文字列を追加する

対象文字列の最後に追加文字列が存在しないときにだけ、文字列を追加します。

文字列の最後の文字列を削除する

対象文字列の最後の文字列が削除文字列の場合だけ対象文字列から削除文字列を削除する

文字列の前方の不要文字列削除

文字列の前方の不要文字列を削除

使用例
Dim buff, work<br /> buff = "++++データ開始行****"<br /> work = strSpCut.FrontStr(buff,"+",2)<br />結果<br />work "++データ開始行****"<br />

文字列の前方の不要文字列削除

文字列の前方の不要文字列を削除

使用例
Dim buff, work<br /> buff = "++++データ開始行****"<br /> work = strSpCut.Front(buff,"+")<br />結果<br />work "データ開始行****"<br />

文字列の後方の不要文字列削除

文字列の後方の不要文字列を削除

使用例
Dim buff, work<br /> buff = "++++データ開始行****"<br /> work = strSpCut.backStr(buff,"*",2)<br />結果<br />work "++++データ開始行**"<br />

文字列の後方の不要文字列削除

文字列の後方の不要文字列を削除

使用例
Dim buff, work<br /> buff = "++++データ開始行****"<br /> work = strSpCut.Back(buff,"*")<br />結果<br />work "++++データ開始行"<br />

文字列の前後の不要文字列削除

文字列の前後の不要文字列を削除

使用例
Dim buff, work<br /> buff = "****データ開始行****"<br /> work = strSpCut.BothStr(buff,"*",2)<br />結果<br />work "**データ開始行**"<br />

文字列の前後の不要文字列削除

文字列の前後の不要文字列を削除

使用例
Dim buff, work<br /> buff = "****データ開始行****"<br /> work = strSpCut.Both(buff,"*")<br />結果<br />work "データ開始行"<br />