[ホーム] - [ノーツドミノプログラミングサンプル一覧] - [1文字置換のロータススクリプトのサンプル紹介]

1文字置換のロータススクリプトのサンプル紹介| ノーツドミノ

課題

Notes 4.x系の Lotus Script では文字の置換の関数がありません。自作で作るしかないでしょう。このページではサンプルコードを紹介します。

一文字置換の関数

以下のようなオリジナル関数により実現が可能です。

mainstring・・・・・置換対象
fromstring・・・・・変換元文字
tostring・・・・・変換先文字



Function myreplace (mainstring,fromstring,tostring)

     REM Lotus Script 用の1文字を置き換える関数

     p = ""

     returnstr = ""

     For i = 1 To Len(mainstring)

          

          REM i 番目の文字を読み込み     

          p = Mid(mainstring,i,1)

          If p = fromstring Then

               returnstr = returnstr + tostring

          Else

               returnstr = returnstr + p

          End If

     Next

     

     myreplace = returnstr

     

End Function

(補足)Lotus Script を使用しています。(VBを Notesに拡張した言語です。)

本ページは IBM Lotus Notes Domino (ロータスノーツドミノ)を対象としています。基本的には Notes 4,5,及び6以後を対象としていますが、バージョンによっては対応していない場合があります。 lotus scriptや @関数 (@コマンド)を対象としていて、VB Scriptには対応していません。本サイト内掲載されている情報は、著作権法により保護されています。いかなる場合でも権利者の許可なくコピー、配布することはできません。このページはリンクフリーです。(このページへの直接リンクも可能です。)

[ホーム] - [ノーツドミノプログラミングサンプル一覧]