改行について (ID:79662)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 一文字ずつMid$関数でみてvbCRがあったら、ループ変数をひとつ増加してやる、という方法があります。 ループをするのは面倒なので、InStr関数を使ったほうが楽かもしれません。 dim i as integer dim st as string dim length as integer st="aiueo"+VbCrlf+"kakikukeko" length=Len(st) 'for for i=1 to length if Mid$(st,i,1)=vbCr then 'ここに目的の処理を書く i=i+1 end if Next 'Instr do i=Instr(i,st,VbCrLf) if i<>0 then 'ここに目的の処理を書く else exit do end if loop