charcode.bas
TextBox等の改行は、chr(13)+chr(10) で改行になります。
文字数が多いのとなんとなくストレスを感じるので、サブルーチンにして使っています。
もちろん、面倒な時は使ってませんがｗｗｗ

charcode.bas は、以下のサブルーチンを必要とします。
inport toStr.bas

改行コード

使用例、
Dim cr, tabs<br /> cr = charcode.cr<br /> tabs = charcode.tabs("1")<br /> <br /> cr = Chr(13) + Chr(10)<br />

指定個数 TAB コード を返す

文字コードを繰り返し使う場面は、文字列解析等をおこなっていると案外でてきます。
なかでもHTML出力系のプログラムの場合は、ネストを作るときにTABコードの繰り返しが発生します。


使用例、
tabs = tabs(n)<br />

TAB コード

tabc = Chr(9) こう書けばおしまいなんですけどね。ｗｗｗ

Dim tabcode<br /><br /> tabcode = charcode.tabc<br />

指定個数 空白 を返す

使用例、
Dim sp4<br /><br /> sp4 = charcode.sp(4)<br />

指定個数の文字列を返す

使用例、
Dim A4<br /><br /> A4 = strloop(4,"A")<br />

改行文字コードを返す charcode ダウンロード