erase array '初期化
2006年11月06日
配列の初期化 ERASE
dim array() '配列
erase array '初期化
erase array '初期化
2006年10月25日
バイト数のカウント(全角文字は1文字2バイト、半角文字は1文字1バイト)
//-----------------------------------------------------------------------------
//--[概要] バイト数のカウント(全角文字は1文字2バイト、半角文字は1文字1バイト)
//--[引数] str カウントする文字列
//※全角文字になっていますので、半角文字に変換してご利用ください
//-----------------------------------------------------------------------------
function wc(str){
var bc=0;
for(var i=0;i<str.length;i++){
if(str.charCodeAt(i)<0x100){
// case: ascii character.
bc+=1;
}else{
// case: double byte character.
bc+=2;
}
}
return bc;
}
//--[概要] バイト数のカウント(全角文字は1文字2バイト、半角文字は1文字1バイト)
//--[引数] str カウントする文字列
//※全角文字になっていますので、半角文字に変換してご利用ください
//-----------------------------------------------------------------------------
function wc(str){
var bc=0;
for(var i=0;i<str.length;i++){
if(str.charCodeAt(i)<0x100){
// case: ascii character.
bc+=1;
}else{
// case: double byte character.
bc+=2;
}
}
return bc;
}
改行を
タグに置き換える
'================================================================================
' 13.改行を<BR>タグに置き換える
' 引数: str_data >対象文字列
' 戻り: lbl_crlf >変換後の文字列
'================================================================================
Function lbl_crlf(str_data,lbl_data)
dim str_wk
str_wk = ""
if not isNull(str_data) then
str_wk = Replace(str_data,Chr(13) & Chr(10),"<BR>")
end if
lbl_data = str_wk
End Function
' 13.改行を<BR>タグに置き換える
' 引数: str_data >対象文字列
' 戻り: lbl_crlf >変換後の文字列
'================================================================================
Function lbl_crlf(str_data,lbl_data)
dim str_wk
str_wk = ""
if not isNull(str_data) then
str_wk = Replace(str_data,Chr(13) & Chr(10),"<BR>")
end if
lbl_data = str_wk
End Function
2006年10月19日
全角チェック
//----------------------------------------------------------------------------------
//--[概要] 全角チェック
//--[引数]
//----------------------------------------------------------------------------------
function check_zenkaku(moji) {
var cnt = 0;
var flg= "";
flg = "";
var nagasa = moji.length;
for (var i = 0; i < nagasa; ++i) {
var c = moji.charCodeAt(i);
// 半角カタカナは不許可
if (c < 256 || (c >= 0xff61 && c <= 0xff9f)) {
return false;
flg = "x";
}
}
return true;
}
//--[概要] 全角チェック
//--[引数]
//----------------------------------------------------------------------------------
function check_zenkaku(moji) {
var cnt = 0;
var flg= "";
flg = "";
var nagasa = moji.length;
for (var i = 0; i < nagasa; ++i) {
var c = moji.charCodeAt(i);
// 半角カタカナは不許可
if (c < 256 || (c >= 0xff61 && c <= 0xff9f)) {
return false;
flg = "x";
}
}
return true;
}
半角チェック(その2)
//----------------------------------------------------------------------------------
//--[概要] 半角チェック
//--[引数] moji 文字列
//----------------------------------------------------------------------------------
function check_hankaku(moji){
var cnt = 0;
var flg= "";
var nagasa = moji.length;
for (var i=0; i < nagasa; i++)
{
var c = moji.charCodeAt(i);
// Shift_JIS: 0x0 〜 0x80, 0xa0 , 0xa1 〜 0xdf , 0xfd 〜 0xff
// Unicode : 0x0 〜 0x80, 0xf8f0, 0xff61 〜 0xff9f, 0xf8f1 〜 0xf8f3
if ((c >= 0x0 && c < 0x81) || (c == 0xf8f0) || (c >= 0xff61 && c < 0xffa0) || (c >= 0xf8f1 && c < 0xf8f4))
{
cnt += 1;
}
else
{
cnt += 2;
}
}
return cnt;
}
//--[概要] 半角チェック
//--[引数] moji 文字列
//----------------------------------------------------------------------------------
function check_hankaku(moji){
var cnt = 0;
var flg= "";
var nagasa = moji.length;
for (var i=0; i < nagasa; i++)
{
var c = moji.charCodeAt(i);
// Shift_JIS: 0x0 〜 0x80, 0xa0 , 0xa1 〜 0xdf , 0xfd 〜 0xff
// Unicode : 0x0 〜 0x80, 0xf8f0, 0xff61 〜 0xff9f, 0xf8f1 〜 0xf8f3
if ((c >= 0x0 && c < 0x81) || (c == 0xf8f0) || (c >= 0xff61 && c < 0xffa0) || (c >= 0xf8f1 && c < 0xf8f4))
{
cnt += 1;
}
else
{
cnt += 2;
}
}
return cnt;
}