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 | このブログの読者になる | 更新情報をチェックする
この記事へのコメント
コメントを書く
お名前:

メールアドレス:

ホームページアドレス:

コメント:

認証コード: [必須入力]


※画像の中の文字を半角で入力してください。
この記事へのトラックバックURL
http://blog.seesaa.jp/tb/46136919

この記事へのトラックバック

祝!ど-てい卒業しました!
Excerpt: 西川先生みたいな女の人に37マモナ買ってもらえました! 
Weblog: けいた
Tracked: 2007-06-30 21:49
×

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