2007年06月28日

入力文字を検索文字で検索し検索文字より左側の文字列を返す

'================================================================================
' 説明: 入力文字を検索文字で検索し検索文字より左側の文字列を返す
' 引数: inmoji   >入力文字
'   : search   >検索文字
' 戻り: GetOutMoji >
'================================================================================
Function GetOutMoji(inmoji,search)

 if Instr(inmoji,search) > 0 then
  GetOutMoji = Left(inmoji,Instr(inmoji,search)-1)
 else
  GetOutMoji = inmoji
 end if

End Function
posted by べる at 17:13| 沖縄 ☀| Comment(0) | TrackBack(1) | VBScript | このブログの読者になる | 更新情報をチェックする

広告


この広告は60日以上更新がないブログに表示がされております。

以下のいずれかの方法で非表示にすることが可能です。

・記事の投稿、編集をおこなう
・マイブログの【設定】 > 【広告設定】 より、「60日間更新が無い場合」 の 「広告を表示しない」にチェックを入れて保存する。


×

この広告は1年以上新しい記事の投稿がないブログに表示されております。