2006年08月31日

trim

//----------------------------------------------------------------------------------
//--[概要] 対象文字列の左右側から半角・全角スペースを取り除く。
//--  もし対象文字列がnullならば、nullを返す。
//--[引数] inValue    対象文字列
//----------------------------------------------------------------------------------
function trim(inValue)
{
 return rtrim(ltrim(inValue));
}
posted by べる at 10:50| 沖縄 ☔| Comment(0) | TrackBack(0) | JavaScript | このブログの読者になる | 更新情報をチェックする

ltrim

//----------------------------------------------------------------------------------
//--[概要] 対象文字列の左側から半角・全角スペースを取り除く。
//--  もし対象文字列がnullならば、nullを返す。
//--[引数] inValue    対象文字列
//----------------------------------------------------------------------------------
function ltrim(inValue)
{
 var BLANK_STR=" ";
 var BLANK_STR2=" ";

 if(inValue==null)
 {
  return inValue;
 }

 var lastIndex = inValue.length;
 if(lastIndex<=0)
 {
  return inValue;
 }

 var startIndex = 0;

 while(true)
 {
  if(inValue.substring(startIndex,startIndex+1)!=BLANK_STR && inValue.substring(startIndex,startIndex+1)!=BLANK_STR2)
  {
   break;
  }
  startIndex = startIndex +1 ;
 }
 return inValue.substring(startIndex,lastIndex);
}
posted by べる at 10:50| 沖縄 ☔| Comment(0) | TrackBack(0) | JavaScript | このブログの読者になる | 更新情報をチェックする

rtrim

//----------------------------------------------------------------------------------
//--[概要] 対象文字列の右側から半角・全角スペースを取り除く。
//--  もし対象文字列がnullならば、nullを返す。
//--[引数] inValue    対象文字列
//----------------------------------------------------------------------------------
function rtrim(inValue)
{
 var BLANK_STR=" ";
 var BLANK_STR2=" ";

 if(inValue==null)
 {
  return inValue;
 }

 var lastIndex = inValue.length;
 if(lastIndex<=0)
 {
  return inValue;
 }

 while(true)
 {
  if( inValue.substring(lastIndex-1,lastIndex)!=BLANK_STR && inValue.substring(lastIndex-1,lastIndex)!=BLANK_STR2)
  {
   break;
  }
  lastIndex = lastIndex -1 ;
 }
 return inValue.substring(0,lastIndex);
}
posted by べる at 10:48| 沖縄 ☔| Comment(0) | TrackBack(0) | JavaScript | このブログの読者になる | 更新情報をチェックする

2006年08月29日

半角チェック

// 4 半角チェック
function HanChk(str){
 var res = true
 var hanck = true
 if(str.length != 0){
  BrowserType = navigator.appName;
  BrowserVer = navigator.appVersion.substring(0,1);
  for (i=0;i<=str.length-1;i++){
   b = str.substring(i,i+1)
   xb = escape(b)
   if (BrowserType == "Netscape" && BrowserVer != "3"){
    xb = xb.substring(0,3)
     if(xb.length==3){
      xb2 = xb.substring(1,3)
      if((("80"<=xb2)&(xb2<"A1"))|("DF" < xb2)){
       hanck=false
       break
      }
     }
    }else{
     if(xb.length==3){
      xb2 = xb.substring(1,3)
      if((("80"<=xb2)&(xb2<"A1"))|("DF" < xb2)){
       hanck=false
       break
      }
     }else if(xb.length==6){
      xb2=xb.substring(2,6)
      if((xb2<"FF61")|("FF9F" < xb2)){
       hanck=false
       break
      }
    }else{
     if(xb.length!=1){
      alert("半角チェックロジックエラー")
      res=false
      break
     }
    }
   }
  }if (hanck==false){
   res=false
  }
 }
 return res;
}
posted by べる at 16:27| 沖縄 ☔| Comment(0) | TrackBack(0) | JavaScript | このブログの読者になる | 更新情報をチェックする

2006年08月28日

ファイルのコピー、移動

'================================================================================
'10.ファイルのコピー、移動
'  引数:syuri_f>0:コピー 1:移動
'     cp_moto>元(フルパス)
'     cp_saki>先(フルパス)
'  戻り:cpmv_file>true/false
'================================================================================
Function cpmv_file(syuri_f,cp_moto,cp_saki)
 Dim obj_fil
 Dim res
 cpmv_file = true
 set obj_fil = Server.CreateObject("Scripting.FileSystemObject")
 res = obj_fil.CopyFile(cp_moto,cp_saki,true)
 If Err.Number <> 0 then
  cpmv_file = false
 else
  if syuri_f = "1" then
   res = obj_fil.DeleteFile(cp_moto,true)
  end if
  If Err.Number <> 0 then
   cpmv_file = false
   end if
  end if
 set obj_fil = nothing
End Function
posted by べる at 13:39| 沖縄 ☔| Comment(0) | TrackBack(0) | VBScript | このブログの読者になる | 更新情報をチェックする

text が1件の場合returnでsubmitされてしまう件の対応

// text が1件の場合returnでsubmitされてしまう件の対応
// return を falseにする
function evt(ev){
 if(navigator.appName.indexOf("Microsoft") != -1){
  keynum = event.keyCode;
 }else{
  keynum = ev.which;
 }
 if(keynum==13){
  return false ;
 }else{
  return true;
 }
}
posted by べる at 10:33| 沖縄 ☔| Comment(0) | TrackBack(0) | JavaScript | このブログの読者になる | 更新情報をチェックする

2006年08月25日

日付チェック関数

//----------------------------------------------------------------------------------
//--[概要]日付チェック
//--[引数]j_name項目名
//--   j_value値
//--   j_nullNULL区分(0:許す 1:許さない)
//--   j_edit編集区分(1:年 2:年月 3:年月日)
//----------------------------------------------------------------------------------
function jfc_com_chk_date(j_name,j_value,j_null,j_edit) {
 var jw_value = j_value;
 var jw_count = 0;
 var jw_return = "";
 if (jw_value=="" && j_null=="0") {
  return("");
 } else if (jw_value.indexOf(unescape("\x09")) != -1) {
  return("タブは入力できません。");
 }
 if (j_edit == 1) {
  jw_return = jw_return + j_name + "は、年4桁で";
 } else if (j_edit == 2) {
  jw_return = jw_return + j_name + "は、年4桁・月2桁で";
 } else if (j_edit == 3) {
  jw_return = jw_return + j_name + "は、年4桁・月2桁・日2桁で";
 }
 if (j_null=="1") {
  jw_return = jw_return + "必須入力して下さい。";
 } else {
  jw_return = jw_return + "入力して下さい。";
 }
 if (jw_value=="" && j_null=="1") {
 return(jw_return);
 } else if (isNaN(jw_value) == true) {
  return(jw_return);
 } else if (jw_value.length != 4 && j_edit=="1") {
  return(jw_return);
 } else if (jw_value.length != 6 && j_edit=="2") {
  return(jw_return);
 } else if (jw_value.length != 8 && j_edit=="3") {
  return(jw_return);
 }
 if (j_edit=="1") {
  return("");
 }
 var jw_year;
 var jw_month;
 var jw_day;
 var jw_compare_year;
 var jw_date = new Date;
 var jw_monthdays = new Array(31,28,31,30,31,30,31,31,30,31,30,31);
 var jw_this_monthday;
 jw_year = jw_value.substr(0,4);
 jw_month = jw_value.substr(4,2);
 jw_day = jw_value.substr(6,2);
 if (jw_month < 01 || jw_month > 12 ) {
  return(j_name + "の月指定が正しくありません。");
 }
 if (j_edit=="2") {
  return("");
 }
 jw_date.setFullYear(jw_year);
 jw_date.setMonth(jw_month - 1);
 jw_compare_year = jw_date.getFullYear();
 if (jw_compare_year < 2000) {
  jw_compare_year = jw_compare_year + 1900;
 }
 if ((jw_compare_year%4 == 0 && jw_compare_year%100 != 0) || jw_compare_year%400 == 0 ) {
  jw_monthdays[1]=29;
 }
 jw_this_monthday = jw_monthdays[jw_date.getMonth()];
 if ((jw_day >= 1) && ( jw_day <= jw_this_monthday)) {
 } else {
  return(j_name + "の日付指定が正しくありません。");
 }
 return("");
}
posted by べる at 15:49| 沖縄 ☔| Comment(0) | TrackBack(0) | JavaScript | このブログの読者になる | 更新情報をチェックする

日付チェック

//----------------------------------------------------------------------------------
//--[概要]入力タイプがテキストで入力有ならば日付チェックを行う
//--   入力なしはエラーとしフォーカスを入力エリアに移す
//--[備考]jfc_com_chk_date日付チェック関数を呼ぶ
//----------------------------------------------------------------------------------
if(document.forms[0].ymd.type == "text"){
 if (document.forms[0].ymd.value.length > 0) {
  wResult = jfc_com_chk_date("ymd",document.forms[0].ymd.value,1,3);
  if (wResult != "") {
   alert(wResult);
   document.forms[0].ymd.focus();
   document.forms[0].ymd.select();
   return false;
  }
 }else{
  alert("日付を入力してください。");
  document.forms[0].ymd.focus();
  document.forms[0].ymd.select();
  return false;
 }
}
posted by べる at 15:41| 沖縄 ☔| Comment(0) | TrackBack(0) | JavaScript | このブログの読者になる | 更新情報をチェックする

上級テクニック集―アット驚く達人の技 [著者] C&R研究所

HTML+JavaScript+CSS 上級テクニック集―アット驚く達人の技HTML+JavaScript+CSS 上級テクニック集―アット驚く達人の技
販売元 : Amazon.co.jp 本
価格 :
[タイトル] HTML+JavaScript+CSS 上級テクニック集―アット驚く達人の技
[著者] C&R研究所
[種類] 単行本
[発売日] 2002-08
[出..
>>Seesaa ショッピングで買う
posted by べる at 12:11| 沖縄 ☔| Comment(0) | TrackBack(0) | JavaScript | このブログの読者になる | 更新情報をチェックする

2006年08月24日

日付計算ルーチン(±月数)

'================================================================================
' 日付計算ルーチン 取得
' 引数:wdate   >基準日
'   :tuki   >加減したい月数
' 戻り:get_month >計算された日付 (西暦8桁)
'================================================================================
Function get_month(wdate,tuki)

 Dim wk_month
 Dim wk_month2
 dim str_date

 str_date = right(wdate,2) & "/" & mid(wdate,5,2) & "/" & left(wdate,4)
 wk_month = DateAdd("m",tuki,CDate(str_date))
 wk_month2 = year(wk_month) & string(2-len(month(wk_month)),"0") & month(wk_month) & string(2-len(day(wk_month)),"0") & day(wk_month)
 get_month = wk_month2
End Function
posted by べる at 15:24| 沖縄 ☔| Comment(0) | TrackBack(0) | VBScript | このブログの読者になる | 更新情報をチェックする

日付の計算(±日数)

'================================================================================
' 日付計算ルーチン取得
' 引数:wdate>基準日(YYYYMMDD)
'   :nissu>加減したい日数(±日数)
' 戻り:get_date>計算された日付(YYYYMMDD)
'================================================================================
Function get_date(wdate,nissu)

 Dim wk_day
 Dim wk_day2
 dim str_date

 str_date = right(wdate,2) & "/" & mid(wdate,5,2) & "/" & left(wdate,4)
 wk_day = DateAdd("d",nissu,CDate(str_date))
 wk_day2 = year(wk_day) & string(2-len(month(wk_day)),"0") &  month(wk_day) & string(2-len(day(wk_day)),"0") & day(wk_day)
 get_date = wk_day2

End Function
posted by べる at 15:14| 沖縄 ☔| Comment(0) | TrackBack(0) | VBScript | このブログの読者になる | 更新情報をチェックする

文字列リテラル中で改行する

var btnconf=confirm("A="+a+"\nB="+b+"\nを削除してよろしいですか?");
if (btnconf==true){
 document.write("A="+a+",B="+b+"を削除しました" );
}
posted by べる at 14:10| 沖縄 ☔| Comment(0) | TrackBack(0) | JavaScript | このブログの読者になる | 更新情報をチェックする

半角カナチェック

//----------------------------------------------------------------------------------
//--[概要] 半角カナチェック
//--[引数] st_val >チェックする文字列
//--[戻り] hankaku_kana_check >true:文字列は全て半角カナである
// false:文字列に半角カナ以外の文字が存在する
//----------------------------------------------------------------------------------
function hankaku_kana_check(st_val){
 var iCount;
 var iCode;
 for (iCount=0 ; iCount 65439)){
    return false;
   }
 }
 return true;
}
posted by べる at 13:51| 沖縄 ☔| Comment(0) | TrackBack(0) | JavaScript | このブログの読者になる | 更新情報をチェックする

親チェックボタン押下時に、子チェックボタンを自動で押下する

//----------------------------------------------------------------------------------
//--[概要] 親チェックボタン押下時に、子チェックボタンを自動で押下する(親子の同期合わせ)
//--[引数] chkbox_name:チェックボックスの名前(親子のチェックボックスの名前を同じにする)
//----------------------------------------------------------------------------------
function chkboxSet(chkbox_name) {
 var i;
 var str1;
 var str0="document.forms[0]."+chkbox_name+".length;";
 str0=eval(str0);
 if (str0) {
  for(i=1 ; i < str0 ; i++){
   str1="document.forms[0]."+chkbox_name+"["+i+"].checked
     =document.forms[0]."+chkbox_name+"[0].checked;";
   str1=eval(str1);
  }
 }
}
posted by べる at 11:20| Comment(0) | TrackBack(1) | JavaScript | このブログの読者になる | 更新情報をチェックする

広告


この広告は60日以上更新がないブログに表示がされております。

以下のいずれかの方法で非表示にすることが可能です。

・記事の投稿、編集をおこなう
・マイブログの【設定】 > 【広告設定】 より、「60日間更新が無い場合」 の 「広告を表示しない」にチェックを入れて保存する。


×

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