记录日志、日期时间等函数集合和文件包含脚本例子

蓝星际语音平台脚本例子

这些例子都比较简单, 有些比较有趣，您很容易看明白，仔细阅读源程序可以让您迅速入门，也会提高您的水平。
每个例子都有一个说明文档，请您在运行例子之前阅读它。
请将蓝星际平台程序拷贝到相应的目录之下，然后运行。因为有些脚本使用了相对路径，所以建议脚本文件和蓝星际平台程序放在相同的目录。

记录日志、日期时间等函数集合和文件包含

说明：

MainIvr.bss - 主流程脚本文件
辅助函数集合脚本文件, 可以被其它脚本包含, 如果你没有用到其中的某些函数，即使包含进去也不会占用内存空间，平台将会自动进行优化。包括下列的辅助函数：
- 记录操作日志的辅助函数: WriteLog(file, info) 注意要预先创建好Log目录
- 各种格式的日期时间函数:
  - GetSecs(sec) - 得到当前秒数, 整型
  - GetDate(pDate) - 得到日期串: "yyyymmdd"
  - GetTime(pTime) - 得到时间串: "hh:mm:ss"
  - GetDateTime(pTime) - 得到字符串输出的日期和时间, 如:"20021225 12:32:19"
  - GetFmtTime(pTime) - 得到字符串输出的日期和时间(SQL-DateTime类型), 如:"2002-12-25 12:32:19"
  - GetDateTime2(pTime) - 得到字符串输出: "日期+时间+线路号", 通常用来生成唯一的ID号或文件名
- 计算两个日期相差的天数:DiffDateDays(date1, date2);
- 得到唯一的编号: GetCodeId(cId) : yyyymmdd_hhmmss_lineNO
- 计算农历: GetLunar(eDate, isLeap, month, day)
在开发平台指定脚本为: MainIvr.bss, 它使用了WriteLog.bss中的几个函数, 包括WriteLog(), GetSecs()等.

主流程脚本示例：

// 示例记录日志
// 深圳市蓝星际公司版权所有, 2004-2007
// bluesen@sina.com


#include "WriteLog.bss"  // 包含记录日志的辅助函数集

WriteLog("MainIvr.log", "Start...");

// 记录起始时间(秒)
t1 = 0;
GetSecs(t1);

for(i=0; i<200; i++)
{
   Sleep(0.01);
}

t2 = 0;
GetSecs(t2);

dt = t2 - t1;
s = "dt = " + dt + "秒";
WriteLog("MainIvr.log", s);  // 记录循环所需要的秒数

pDate = "";
GetDate(pDate); //  得到日期串: "yyyymmdd"
WriteLog("MainIvr.log", "GetDate: " + pDate);

pTime = "";
GetTime(pTime);  // 得到时间串: "hh:mm:ss"
WriteLog("MainIvr.log", "GetTime: " + pTime);

pTime = "";
GetDateTime(pTime);  // 得到字符串输出的日期和时间, 如:"20021225 12:32:19"
WriteLog("MainIvr.log", "GetDateTime: " + pTime);

pTime = "";
GetFmtTime(pTime);  // 得到字符串输出的日期和时间(SQL-DateTime类型), 如:"2002-12-25 12:32:19"
WriteLog("MainIvr.log", "GetFmtTime: " + pTime);

pTime = "";
GetDateTime2(pTime);  // 得到字符串输出: "日期+时间+线路号", 通常用来生成唯一的ID号或文件名
WriteLog("MainIvr.log", "GetDateTime2: " + pTime);

// 计算两个日期相差的天数:DiffDateDays(date1, date2);
dt = DiffDateDays(20070912, 20070812);
WriteLog("MainIvr.log", "DiffDateDays(20070912, 20070812): " + dt);

// 得到唯一的编号: GetCodeId(cId) : yyyymmdd_hhmmss_lineNO
cId = "";
GetCodeId(cId);
WriteLog("MainIvr.log", "GetCodeId(cId): " + cId);

// 计算农历: GetLunar(eDate, isLeap, month, day)
cId = "";
s = GetLunar("20070912", 0, 0, 0);
WriteLog("MainIvr.log", "GetLunar(20070912): " + s);

WriteLog("MainIvr.log", "End.");
return(0);

辅助函数集合脚本示例：

// 文件名: WriteLog.bss
//
// 辅助函数集合
// 1.记录操作日志的辅助函数: WriteLog(file, info)
//    注意要预先创建好Log目录
//
// 2.各种格式的日期时间函数:
//   GetSecs(sec) - 得到当前秒数, 整型
//   GetDate(pDate) - 得到日期串: "yyyymmdd"
//   GetTime(pTime) - 得到时间串: "hh:mm:ss"
//   GetDateTime(pTime) - 得到字符串输出的日期和时间, 如:"20021225 12:32:19"
//   GetFmtTime(pTime) - 得到字符串输出的日期和时间(SQL-DateTime类型), 如:"2002-12-25 12:32:19"
//   GetDateTime2(pTime) - 得到字符串输出: "日期+时间+线路号", 通常用来生成唯一的ID号或文件名
//
// 3.计算两个日期相差的天数:DiffDateDays(date1, date2);
//
// 4.得到唯一的编号: GetCodeId(cId) : yyyymmdd_hhmmss_lineNO
//
// 5.计算农历: GetLunar(eDate, isLeap, month, day)
//
// 深圳市蓝星际公司版权所有, 2003.10 - 2007.09 Shenzhen
// bluesen@sina.com


// ---------------------------------------------------------------------------
// 得到当前秒数
function GetSecs(sec)
{
	sec = Time();
	return(sec);
}

// 得到日期串: "yyyymmdd"
function GetDate(pDate)
{
	GetDateStr("%Y%m%d", NULL, false, pDate);
}

// 得到时间串: "hh:mm:ss"
function GetTime(pTime)
{
	GetDateStr("%T", NULL, false, pTime);
}

// 这个函数得到字符串输出的日期和时间
// 输出格式为: "20021225 12:32:19"
function GetDateTime(pTime)
{
	GetDateStr("%Y%m%d %T", NULL, false, pTime);
}

// 这个函数得到字符串输出的日期和时间(SQL-DateTime类型)
// 输出格式为: "2002-12-25 12:32:19"
function GetFmtTime(pTime)
{
	GetDateStr("%Y-%m-%d %T", NULL, false, pTime);
}

// 得到字符串输出: "日期+时间+线路号", 通常用来生成唯一的ID号或文件名
// 格式为："200709130950412"
function GetDateTime2(pTime)
{
	GetDateStr("%Y%m%d%H%M%S", NULL, false, pTime);
	pTime = pTime + _lineNo;
}

// 记录日志
// 注意要预先创建好Log目录
function WriteLog(file, info)
{
  TextFileAppend(file, info, 3);
}

// 得到唯一的编号: yyyymmdd_hhmmss_lineNO
function GetCodeId(cId)
{
	GetDateStr("%Y%m%d_%H%M%S_", NULL, false, cId);
	cId = cId + _lineNo;
}

// ---------------------------------------------------------------------------
// 计算两个日期相差的天数: date2-date1
// 日期的格式: YYYYMMDD或"YYYYMMDD"
// 返回结果：如果date1>date2则返回负数
function DiffDateDays(date1, date2)
{
  d1 = 0 + date1;
  d2 = 0 + date2;
  year1 = d1 / 10000;
  month1 = (d1 % 10000) / 100;
  day1 = d1 % 100;
  year2= d2 / 10000;
  month2 = (d2 % 10000) / 100;
  day2 = d2 % 100;

  // 更简单的新算法。注意日期不能超过2038年
  t1 = MakeTime(year1, month1, day1, 0, 0, 0);
  t2 = MakeTime(year2, month2, day2, 0, 0, 0);
  return( (t2-t1)/(3600*24) );
}

// 全局数组: 保存每个农历年的大小月份信息
lunarInfo = 0;

function InitLunarInfo()
{
  lunarInfo[0] = 51552;
  lunarInfo[1] = 55636;
  lunarInfo[2] = 54432;
  lunarInfo[3] = 55888;
  lunarInfo[4] = 30034;
  lunarInfo[5] = 22176;
  lunarInfo[6] = 43959;
  lunarInfo[7] = 9680;
  lunarInfo[8] = 37584;
  lunarInfo[9] = 51893;
  lunarInfo[10] = 43344;
  lunarInfo[11] = 46240;
  lunarInfo[12] = 47780;
  lunarInfo[13] = 44368;
  lunarInfo[14] = 21977;
  lunarInfo[15] = 19360;
  lunarInfo[16] = 42416;
  lunarInfo[17] = 86390;
  lunarInfo[18] = 21168;
  lunarInfo[19] = 43312;
  lunarInfo[20] = 31060;
  lunarInfo[21] = 27296;
  lunarInfo[22] = 44368;
  lunarInfo[23] = 23378;
  lunarInfo[24] = 19296;
  lunarInfo[25] = 42726;
  lunarInfo[26] = 42208;
  lunarInfo[27] = 53856;
  lunarInfo[28] = 60005;
  lunarInfo[29] = 54576;
  lunarInfo[30] = 23200;
  lunarInfo[31] = 30371;
  lunarInfo[32] = 38608;
  lunarInfo[33] = 19415;
  lunarInfo[34] = 19152;
  lunarInfo[35] = 42192;
  lunarInfo[36] = 118966;
  lunarInfo[37] = 53840;
  lunarInfo[38] = 54560;
  lunarInfo[39] = 56645;
  lunarInfo[40] = 46496;
  lunarInfo[41] = 22224;
  lunarInfo[42] = 21938;
  lunarInfo[43] = 18864;
  lunarInfo[44] = 42359;
  lunarInfo[45] = 42160;
  lunarInfo[46] = 43600;
  lunarInfo[47] = 111189;
  lunarInfo[48] = 27936;
  lunarInfo[49] = 44448;
  lunarInfo[50] = 84835;
}

//====================================== 返回农历 y年闰哪个月 1-12 , 没闰返回 0
function leapMonth(y) 
{
  return(lunarInfo[y-2000] & 15);
}

//====================================== 返回农历 y年闰月的天数
function leapDays(y) 
{
  m = leapMonth(y);
  if( m )
  {
     if(lunarInfo[y-2000] & 65536)
        return(30);
     else
        return(29);
  }
  else 
     return(0);
}

//====================================== 返回农历 y年的总天数
function lYearDays(y) 
{
  sum = 348;
  for(i=32768; i>8; i=i>>1)
  {
     if(lunarInfo[y-2000] & i)
        sum ++;
  }
  d = leapDays(y);
  return(sum+d);
}

//====================================== 返回农历 y年m月的总天数
function monthDays(y,m) 
{
  if(lunarInfo[y-2000] & (65536>>m))
     return(30);
  else
     return(29);
}

//====================================== 算出农历, 传入公元日期, 返回农历日期(月日)
// eDate - 输入的公元日期，格式为整型：yyyymmdd, 或字符串:"yyyymmdd"
// isLeap - 是否闰月?
// month - 农历月份
// day - 农历日期
// 返回值：可以中文TTS播放的日期串，如："闰4月初9"
function GetLunar(eDate, isLeap, month, day) 
{
  if( lunarInfo==0 )
     InitLunarInfo();

  offset = DiffDateDays(20000205, eDate);  // DiffDateDaysQ(19000131, eDate);  // 

  temp=0;
  for(i=2000; i<2050 && offset>0; i++) 
  { 
     temp = lYearDays(i);
     offset = offset - temp; 
  }

  if(offset<0) 
  { 
     offset = offset + temp; 
     i--; 
  }

  year = i;

  leap = leapMonth(i); //闰哪个月
  isLeap = false;

  for(i=1; i<13 && offset>0; i++) 
  {
     //闰月
     if(leap>0 && i==(leap+1) && !isLeap)
     { 
        --i; 
        isLeap = true; 
        temp = leapDays(year); 
     }
     else
        temp = monthDays(year, i); 

     //解除闰月
     if(isLeap && i==(leap+1))
        isLeap = false;

     offset = offset - temp;
  }

  if(offset==0 && leap>0 && i==leap+1)
  {
     if(isLeap)
        isLeap = false;
     else
     {
        isLeap = true;
        --i; 
     }
  }

  if(offset<0)
  { 
     offset = offset + temp;
     --i; 
  }

  month = i;
  day = offset + 1;
  
  // 以下生产可以用TTS播放的串
  leap = "";
  if( isLeap )
     leap = "闰";

  cMonth = month;
  if( month==1 )
     cMonth = "正";
  else if( month==10 )
     cMonth = "十";
  else if( month>10 )
     cMonth = "十" + month%10;

  if( day<10 )
     cDay = "初" + day;
  else if( day==10 )
     cDay = "初十";
  else if( day<20 )
     cDay = "十" + day%10;
  else if( day==20 )
     cDay = "二十";
  else if( day==30 )
     cDay = "三十";
  else
     cDay = "二十" + day%10;

  return( leap + cMonth + "月" + cDay + "日" );
}
// ------------------------------------

下载：

主流程脚本＋辅助函数集合脚本＋说明

Koodoo脚本示例

蓝星际语音平台 脚本例子

记录日志、日期时间等函数集合和文件包含

蓝星际语音平台脚本例子