广告广告
  加入我的最爱 设为首页 风格修改
首页 首尾
 手机版   订阅   地图  繁体 
您是第 3816 个阅读者
命理服务》 数位论命馆 | 免费排盘 | 星侨易学 | 五术书籍 | 线上论命 | 影音论命 | 八字命书 | 星座分析 | 孔明神数 | 周公解梦 | fackbook 粉丝专页 |
 
发表文章 发表投票 回覆文章
  可列印版   加为IE收藏   收藏主题   上一主题 | 下一主题   
black_jack
数位造型
个人文章 个人相簿 个人日记 个人地图
路人甲
级别: 路人甲 该用户目前不上站
推文 x0 鲜花 x0
分享: 转寄此文章 Facebook Plurk Twitter 复制连结到剪贴簿 转换为繁体 转换为简体 载入图片
推文 x0
[论命类][教学] 程式问题(7)
B. 是否可reset变数列表内的所有变数?有时不希望保留旧的变数或旧的值,而能和最新的程式同步. 不然还可能输出错误结果!!(尤其是有需要判断变数是否存在时)

C. 之前你回覆的Script,我试了一下,竟然有'ScriptError'!!
     <%
           int i;
           {
           i = #{生年支}#;

           AccProgSet('a=' + inttostr(i)); // 同命理程式 [设定:], 可将 Script 的 i 变数设定到命理程式的 a 变数内.
           }
     %>
D. 设定: 本卦#{卦爻$(i)}#的入墓 = 本卦#{卦爻$(i)}#的入墓 + ''卜卦月支','
  这种动态设定的变数, 原来以为这样作就一劳永逸, 但没考虑到第一次执行时因为变数本来不存在,所以不能直接累加. 改成如下:
     如果:变数存在(本卦#{卦爻$(i)}#的入墓)
           否则:
            设定:本卦#{卦爻$(i)}#的入墓 = ''卜卦月支','
     设定: 本卦#{卦爻$(i)}#的入墓 = 本卦#{卦爻$(i)}#的入墓 + ''卜卦月支','
  想把它改成Script的方式,不然每次遇到动态设定的变数都要有一堆字. 请问该怎么改? 另外,ACCProgIF()要怎么用?
E. 假设一变数 str='ab,bc,def,gh', 要分别取出'ab','bc','def','gh',即以','为分隔,该怎么做?



献花 x0 回到顶端 [楼 主] From:台湾新世纪资通股份有限公司 | Posted:2007-07-09 12:38 |
mainchen 葫芦墩家族
个人头像
个人文章 个人相簿 个人日记 个人地图
社区建设奖
头衔:
版主
级别: 版主 该用户目前不上站
版区: 星侨五术软体
推文 x22 鲜花 x36
分享: 转寄此文章 Facebook Plurk Twitter 复制连结到剪贴簿 转换为繁体 转换为简体 载入图片

B. 是否可reset变数列表内的所有变数?有时不希望保留旧的变数或旧的值,而能和最新的程式同步. 不然还可能输出错误结果!!(尤其是有需要判断变数是否存在时)

此功能已加入 v1.204 , 在程式开始执行后会先清除先前的变数.



C. 之前你回覆的Script,我试了一下,竟然有'ScriptError'!!
AccProgSet('a=' + inttostr(i)); // 同命理程式 [设定:], 可将 Script 的 i 变数设定到命理程式的 a 变数内.

C++ 的字串应该是用 " 双引号, 正确如下:

AccProgSet("a=" + inttostr(i));



D. 设定: 本卦#{卦爻$(i)}#的入墓 = 本卦#{卦爻$(i)}#的入墓 + ''卜卦月支','
这种动态设定的变数, 原来以为这样作就一劳永逸, 但没考虑到第一次执行时因为变数本来不存在,所以不能直接累加. 改成如下:
  如果:变数存在(本卦#{卦爻$(i)}#的入墓)
      否则:
        设定:本卦#{卦爻$(i)}#的入墓 = ''卜卦月支','
  设定: 本卦#{卦爻$(i)}#的入墓 = 本卦#{卦爻$(i)}#的入墓 + ''卜卦月支','
想把它改成Script的方式,不然每次遇到动态设定的变数都要有一堆字. 请问该怎么改?

可先将变数初设为 '' , 再开始累加即可:

回圈:i=0 到 5
设定: 本卦#{卦爻$(i)}#的入墓=''




另外,ACCProgIF()要怎么用?

AccProgIf() 就是命理程式的 "如果:" 指令, 使用如下:

if AccProgIf("a=1") then
AccProgSet("a=2");

if AccProgIf("生年支=子") then
AccProgSet("a=2");



E. 假设一变数 str='ab,bc,def,gh', 要分别取出'ab','bc','def','gh',即以','为分隔,该怎么做?

此功能已加入 v1.204 , 用法如下:

复制程式
设定:str='ab,bc,def,gh'
回圈:i=0 到 隔数(str)-1
       设定:s[i]=取隔(str,i)

支援字串内空格, 用法如下:

复制程式
设定:str='ab,bc,' d e f ',gh'
回圈:i=0 到 隔数(str)-1
       设定:s[i]=取隔(str,i)


[ 此文章被mainchen在2007-07-10 10:42重新编辑 ]


献花 x0 回到顶端 [1 楼] From:台湾新世纪资通股份有限公司 | Posted:2007-07-10 08:42 |

首页  发表文章 发表投票 回覆文章
Powered by PHPWind v1.3.6
Copyright © 2003-04 PHPWind
Processed in 0.087819 second(s),query:16 Gzip disabled
本站由 瀛睿律师事务所 担任常年法律顾问 | 免责声明 | 本网站已依台湾网站内容分级规定处理 | 连络我们 | 访客留言