前提・実現したいこと
試したことに書いてあるコードを実行した結果なのですが
* 三角形 * 底辺;10 高さ;10 面積;50 * 円 * 半径;10 面積;62.8 円周;100 * 台形 * 上辺;10 底辺;10 高さ;10 面積;5050
とテキストに書き込めたのですが、
面積;50と* 円 の間に1行改行。
円周;100と 台形 *の間にも1行改行したいと思っています。
発生している問題
「次の行に入力した数字が打ち込まれている状態でのみ改行をしたい」のですが、 そのコードがわかりません。 writeline""を使ったのですが、次の行に何も入力されてない状態でも改行してしまいます。
該当のソースコード
ソースコード
試したこと
実行してみたコード
option explicit dim fso dim a dim i1 dim j1 dim k1 dim i2 dim j2 dim k2 dim i3 dim j3 dim k3 dim l1 set fso = createobject("scripting.filesystemobject") with fso.getfile("書き込むテキストファイルの場所").openastextstream(2) a=msgbox("三角形の数値を入力しますか?",vbyesno) if a = vbyes then i1=inputbox("底辺を入力して下さい") j1=inputbox("高さを入力して下さい") k1=i1*j1/2 .writeline "* 三角形 *" .writeline "底辺;" & i1 .writeline "高さ;" & j1 .writeline "面積;" & k1 end if if a = vbno then end if a=msgbox("円の数値を入力しますか?",vbyesno) if a = vbyes then i2=inputbox("半径を入力して下さい") j2=2*i2*3.14 k2=i2*i2 j2=cdbl(j2) k2=cdbl(k2) .writeline "* 円 *" .writeline "半径;" &i2 .writeline "面積;" &j2 .writeline "円周;" &k2 end if if a = vbno then end if a=msgbox("台形の数値を入力しますか?",vbyesno) if a = vbyes then i3=inputbox("上辺を入力して下さい") j3=inputbox("底辺を入力して下さい") l1=inputbox("高さを入力して下さい") k3=(i3+j3)*l1/2 .writeline "* 台形 *" .writeline "上辺;" &i3 .writeline "底辺;" &j3 .writeline "高さ;" &l1 .writeline "面積;" &k3 end if if a = vbno then end if .close end with set fso = nothing
補足情報(FW/ツールのバージョンなど)
ここにより詳細な情報を記載してください。
コードを書いて実行してうまくいかないのであれば、実行した結果を質問に記述してください。その結果こうしたいけどこうなってしまうのでここを教えてくださいという質問ならわかるんですが...