没想到这么快就有回复，真好。给你一段程序试一试，我还正在发愁怎么办。

股票名称笔划计算

s:=STKNAME;

s1:=STRMID(s,1,2);
s2:=STRMID(s,3,2);
s3:=STRMID(s,5,2);
s4:=STRMID(s,7,2);

//字符笔画库
str1:=\'一乙\';

str2:=\'丁七乃乜九了二人亻儿入八冂几凵刀刁力勹匕十厂厶又\';

str3:=\'万丈三上下丌个丫丸久乇么义乞也习乡亍于亏亡亿兀凡刃勺千卫叉口囗土士夕大女子孑孓寸小尢尸山巛川工己已巳巾干幺广廾弋弓才门飞马\';

str4:=\'不与丐丑专中丰丹为之乌书予云互亓五井亢什仁仂仃仄仅仆仇仉今介仍从仑仓允元公六兮内冈冗凤凶分切刈劝办勾勿匀化匹区卅升午卞厄厅历及友双反壬天太夫夭孔少尤尹尺屯巴币幻廿开引心忆戈户手扎支攴攵文斗斤方无日曰月木欠止歹殳毋比毛氏气水火爪父爻爿片牙牛犬王瓦肀艺见计订讣认讥贝车邓长闩队韦风乏\';
 
str5:=\'且丕世丘丙业丛东丝主乍乎乐仔仕他仗付仙仝仞仟仡代令以仨仪仫们兄兰冉册写冬冯凸凹出击刊刍功加务劢包匆北匝卉半卟占卡卢卮卯厉去发古句另叨叩只叫召叭叮可台叱史右叵叶号司叹叻叼叽囚四圣处外央夯失头奴奶孕宁它宄对尔尕尻尼左巧巨市布帅平幼庀弁弗弘归必忉戊戋扑扒打扔斥旦旧未末本札术正母氐民氕永汀汁汇汉灭犯犰玄玉瓜甘生用甩田由甲申电疋白皮皿目矛矢石示礼禾穴立纠艽艾艿节讦讧讨让讪讫训议讯记轧边辽邗邙邛邝钅闪阡阢饥驭鸟龙\';
 
str6:=\'丞丢乒乓乔乩买争亘亚交亥亦产仰仲仳仵件价任份仿企伉伊伍伎伏伐休众优伙会伛伞伟传伢伤伥伦伧伪伫佤充兆先光全共关兴再军农冰冱冲决凫凼刎刑划刖列刘则刚创劣动匈匠匡华协印危压厌厍吁吃各吆合吉吊同名后吏吐向吒吓吕吖吗囝回囟因囡团在圩圪圬圭圮圯地圳圹场圾壮夙多夷夸夹夺夼奸她好妁如妃妄妆妇妈字存孙宅宇守安寺寻导尖尘尥尧尽屹屺屿岁岂岌州巡巩帆师年并庄庆延廷异式弛当忏忖忙戌戍戎戏成托扛扣扦执扩扪扫扬收旨早旬旭旮旯曲曳有朱朴朵机朽杀杂权次欢此死毕氖氘氽汆汊汐汔汕汗汛汜汝江池污汤汲灯灰爷牝牟犴犷犸玎玑百祁竹米糸纡红纣纤纥约级纨纩纪纫缶网羊羽老考而耒耳聿肉肋肌臣自至臼舌舛舟艮色芄芊芋芍芎芏芑芒芗芝芨虍虫血行衣西观讲讳讴讵讶讷许讹论讼讽设访诀贞负轨达迁迂迄迅过迈邡邢那邦邪邬钆钇闫闭问闯阪阮阱防阳阴阵阶页饧驮驯驰齐\';
 
str7:=\'两严串丽乱亨亩伯估伲伴伶伸伺似伽佃但位低住佐佑体何佗佘余佚佛作佝佞佟你佣佥佧克免兑兕兵况冶冷冻初删判刨利别助努劫劭励劲劳匣医卣卤即却卵县君吝吞吟吠否吧吨吩含听启吱吲吴吵吸吹吻吼吾呆呈告员呙囤囫园困囱围囵圻址坂均坊坌坍坎坏坐坑块坚坛坜坝坞坟坠声壳奁奂妊妍妒妓妖妗妙妞妣妤妥妨妩妪妫姊姒孚孛孜孝宋完宏寿尬尾尿局屁层岈岍岐岑岔岖岗岘岙岚岛岜希帏帐庇床序庐库应弃弄弟张形彤彷役彻忌忍忐忑忒志忘忡忤忧忪快忱忸忻忾怀怃怄怅怆我戒扭扮扯扰扳扶批扼找技抄抉把抑抒抓投抖抗折抚抛抟抠抡抢护报拒拟攸改攻旰旱时旷更杆杈杉杌李杏材村杓杖杜杞束杠条来杨极步歼每求汞汨汩汪汰汴汶汹汽汾沁沂沃沅沆沈沉沌沏沐沙沛沟没沧沩沪泛灵灶灸灼灾灿炀牡牢状犹狂狃狄狈玖玛甫甬男甸町疔疖疗皂盯矣矶社祀秀私秃究穷系纬纭纯纰纱纲纳纵纶纷纸纹纺纽纾罕羌肓肖肘肚肛肜肝肠良芘芙芜芡芤芥芦芩芪芫芬芭芮芯花芳芴芷芸芹芽芾苁苇苋苍苎苏苡苣补角言证诂诃评诅识诈诉诊诋诌词诎诏译诒谷豆豕贡财赤走足身轩辛辰迎运近迓返迕还这进远违连迟邑邮邯邰邱邳邴邵邶邸邹邺邻酉里针钉钊闰闱闲闳间闵闶闷阻阼阽阿陀陂附际陆陇陈陉韧饨饩饪饫饬饭饮驱驳驴鸠鸡麦龟轫豸虬苈苊苌苄芰芟肟芈狁泐沣沔氙氚欤杩忭忮庑庋吡吣劬刭呀呃呒呓呔呋呐呕呖呗呛呜吭吮钋钌\';
 
str8:=\'丧乖乳事些亟享京佩佬佯佰佳佴佶佻佼使侃例侍侏侑侗供依侠侣侥侦侧侨侩侪侬兔兖其具典冼冽净凭凯函刮到制刷券刹剂劾势卑卒卓单卖卦卧卷卺厕叁参叔取周咋和咎咏囹固国图坡坤坦坻坼垂垃垄垅垆备夜奄奇奈奉奋奔妮妯妲妹妻妾姆始姐姑姓委姗孟孢季孤学宓宕宗官宙定宛宜宝实宠审尚居屈屉届岢岣岩岫岬岭岱岳岵岷岸岽岿峁峄巫帑帔帕帖帘帙帚帛帜幸底庖店庙庚府庞废建弥弦弧弩弪录彼往征径忝忠念忽忿态怡怦性怩怪或房所承拓拚招拨择放斧斩於旺昀昂昃昆昊昌明昏易昔昕昙朊朋服杪杭杯杰杲杳杵杷杼松板构枇枉枋析枕林枘枚果枝枞枢枣枪枫枭柜欣欧武歧氛沓沫沭沮沱沲河沸油治沼沽沾沿泄泅泊泌泓泔法泗波泣泥注泪泳泷泸泺泽泾浅炅炉炊炎炒炔炕炖炙炜炝炬爬爸版牦牧物玟玢玩玫玮环现瓮瓯甙画甾畀畅疙的盂盱盲直知矸矽矾矿砀码祆祈祉秆秉穹空竺籴线绀绁绂练组绅细织终绉绊绋绌绍绎经绐罔罗者耵耶肃股肥肩肯肱育肴臾舍艰苑苒苓苔苕苗苘苛苜苞苟苠苤若苦苫苯英苴苷苹苻茁茂范茄茅茆茇茉虎表衩衫衬规觅视试诖诗诚话诞诡询诣诤该详责贤败账货质购贮贯转轭轮软轰迢迤迥迦迨迩迪迫迭迮述迳郁郄郅郇郊郎郑郓采金钒钓钗闸闹阜陋陌降限陔陕隶隹雨青非顶顷饯饰饱饲饴驵驶驷驸驹驺驻驼驽驾驿骀鱼鸢鸣黾齿頄徂怂怔怕怖怜沤沥沦贩贪贫贬肢肤钍钎钏钐侔佾肫肭刳匦茚呱味呵呶呷呸呻呼命咀咂咄咆咚咛咝哎坶孥钔钕邾怊怍怏戗戽戾怙怛狍狎穸疚疝疟疠疡泖怫怯怵怿戕呢呤呦咐咒咔咕咖咙刺刻刽刿剀剁诘诙诟诠虏虮虱肾肿胀胁肷肺肼肽殁殴氓枥枧枨拢拣拥拦拧拔拖拗拘拙拊拌拍拎拐担拆拇拈拉抨披抬抱抵抹抻押抽抿拂拄坨坩坪坫坭坯坳坷泞泠泡泫泮泯泱泻泼狐狒狗狙狞肪肮茌茎茏茑茔茕诓诔诛诜诧诨诩郏郐侄侈侉\';
 
str9:=\'临举亭亮亲侮侯侵便促俄俅俊俏俐俑俗保俞俟信俣俦俨俩俪俭修兹养冒冠剃削剌前剐剑勃勇勉勋匍南卸厘厚受变叙叛咨咩咪咫咱咸品哈哉哌响哪囿型垌垒垓垛垠垡垢垣垤垦垧垩垫垭垮垲垴城埏复奎奏契奕奖姘姚姜姝姣姥姨姹姻姿威娃娄娅娆娇娈娜孩孪客宣室宥宦宪宫封将尜尝屋屎屏峋峒峙峡峤峥峦差巷帝带帧帮幽庠庥度庭弈弭弯彖彦彪待徇很徉徊律後怎怒思怠急怨总恒恢恼恽战扁扃拜括拭拮拯拱拴拾持挂指挢挺政故斫施既昝星映春昧昨昭是昱昴昵昶昼显架枷枸柁柃柄柏某柑柒染柔查柩柬柯柰柱柳栅标栋栏树段毡氟氡氢泉泵泶洁洋洌洎洒洗洙洚洛洞津洧洪洫洮洱洲洹活洼洽派测浍济浏浑浒炫炭炮炯炱炳炷炸点炻炼炽烃爰牮牯牲牵独狮玲玳玷玻珀珂珈珉珊珍珏珐珑畈畋界畎畏癸皆皇皈盅盆盈相盹盼盾省眉看矩砂研砖祖祝神祠祢禹禺秋种科穿突窃竖竽竿笃笈类籼籽绑绒结绔绕绘给绚卼绛络绝绞统缸罘罚美羿耍耐胄胆背胍胎胖胜胝胞胡胤胥脉舢舣茈茗茛茜茧茵茶茸茹荀荃荆荇草荏荐荟荠荡荣荤荥荦荧荫药莒虹虽虾蚀蚁蚂蚤衍要觇览觉訇语诮贰贱贲贳贴贵贶贷贸费贺贻赳赴赵轲轳轴轵轶轻迷适选逊郗郛郜郝郡郢郦郧酊酋重钙钚钛钜钟钠钡钢钣钤钥钦钧钨钩闺闻闼闽闾阀阁阂陛陟陡院除陧陨险面革韭音项顺须飒食首香骁骄骆骨鬼鸥虿浓浔涎饵饶饷饺饼钝钞诫诬栌栎洳洵曷朐枯枰枳枵浃浇浈浊柘柙柚柝柞柠柢瓴甚甭茨茫茬茭茯茱茳茴荑荒荔荚荛荜荞荨荩荪误说诵诶迸迹追退送逃逄逅逆飑俎骂窀窆俘俚俜趴轱绗耔耷胂胃胗胙胚胛胧胨胩胪胫舁舡呲咣咤咦咧咬咭咯咳咴咻咽咿哀哂哄哆哇哏哐哑哒哓哔哕哗哙哚哜哝哞哟茺茼荬荭荮莛虐虺虻虼衲衽衿袂袄袅诰诱诲诳轷轸轹轺怼恂恃恍恤恨恪恫恬恸恹恺恻拶拷拼拽钪钫钬钭钮钯按挎挑挖挝挞挟挠挡挣挤挥挪顸鸦鸨鸩骅骇骈栈栉栊柽柿栀歪殂殃殄殆殇残毒毖毗洄洇烀烁烂狠狡狨狩狭狯狰狱狲疣疤疥疫疬疮疯眄眇眈眍眨矜矧砉砌砍砑砒砗砘砚砜砭祓秒秕秭祗祚祛祜\';
 
str10:=\'乘亳俯俱倍倏倒倔倘候倚倜借倡倥倦倨倩倪倬倭倮债值倾偌健党兼凄准凇凉凋凌剧原叟哥哲哺唐圃圄圆垸埂埃埋埒埔埙埚壶夏套奘奚姬娘娟宴宵家宸容宽宾射屐屑展屙峨峪峭峰峻崂崃席帱座弱徐徒徕恁恋恐恕恙恚恝恣恧恩恭息恳悟悦扇拳拿挈挚振捌捍捎捏捐捕捞损捡换捣效敉敌敖斋料旁旅旆晁晃晋晌晏晒晓晔晕晖晚晟朔朕朗柴栓栖栗栝校栩株样核根格栽栾桂桃桄桅框案桉桊桌桎桐桑桓桔桕桠桡桢档桤桥桦桧桨桩梨殷氧氨氩泰流浆浙浦浩浪涣涤浮浯浴海浸浼涂涅消涉涌涛润涧烈烛烟烤热爱爹特牺狼玺珙珞珠珥珧珩班珲瓶瓷畔留疹疾病症皋弢皱益盍盎盏盐监真砻础祟祥祧祯离秘租秣秤秦秧秩秫积称窄窈窍站竞笑笔笕笫粉粑紊素索紧绠绡绢绣绥绦继绨缺罟罡罢羔羞翁翅耄耆耕耿聂胭胶胸能脂脑致航舫般舰舱艳荷莅莆莉莎莓莘莜莞莫莰莱莲获莹莺莼莽衮衰衷衾袁被觊请诸诺读课谁谂调谈谊豇豹贽贾赁资载赶起较辱逋逍透递途通逛逝逞速造逡逢逦邕部郫郭郯郴郸都酒釜钰钱钻钼钽钾钿铀铁铂铃铄铅铆阅阆陪陵陶陷隼隽难顼顽顾顿颀颁颂颃预骋验骏高鸭鸯鸱鸵俳俸俺俾倌胯胰胱胲胳胴胺胼脆脊脍脎脏脐脒脓臬臭舀舐舨舭舯荸荻荼荽莠莨莩莪莳莴莶莸虑虔蚊蚋蚌蚍蚓蚕蚜蚝蚣蚧蚨蚩蚪蚬衄袍袒袖袜袢诼诽诹诿谀谄谅谆谇豺贼贿赀赂赃赅赆轾轿辁辂趵趸趿躬軎轼逐逑逖逗冢冤冥剔剖剜剞剡剥勐匪匿卿厝哦哧哨哩哭哮哳哼哽哿唁唆唇唉唏唑唔唛唠唢唣唤唧啊埕埘娉娌娑娓酌配酎酏酐钲钳钴钵钶钷钸钹钺娠娣娥娩娱娲娴婀孬宰害铈铉铊铋铌铍铎阃阄陬陲陴饽饿馀馁骊髟鬯鬲鸪鸫鸬鸲鸳恶悃悄悌悍悒悔悖悚悛悝悭悯挛挨挫挹挽捂捃捅捆捉捋旃旄栲栳桀桁殉殊梃梆梢梧毙毪氤氦浚浜浞浠浣涑涓涔涕涝涞涟涠涡涨涩烊烘烙烦烧烨烩烫烬狳狴狷狸狺狻猁猃琊瓞畚畛畜疰疱疲疳疴疸疼疽痂痃痄痈痉眙眚眠眢眩砝砼砾笄笆笊笋笏砟砣砥砧砩砬砰破砷砸砹砺耖耗耘耙耸耻耽\';
 
str11:=\'乾偃假偈偎偏偕做停偬偶偷偻偾偿傀兜兽冕减凑凰剪副勒勖勘匙匮匾厢售唯唰唱啄商啡啤啬圈圉圊埝域埠埤埭埯埴埸培基埽堀堂堆堇堋堍堑堕堵够奢娶娼婆婉婊婕婚婢婧婪婴婵婶孰宿寂寄寅密寇尉屠崆崇崎崔崖崧崩崭崮巢帷常帻帼庳庵庶康庸庹庾廊弹彗彩彬得徘徙徜恿悉悠患您悫悬情惯戚戛扈挲捧捩捭据捱捶捷排探接控推掩措敏救敕教敛敝敢斛斜断旋旌旎族晗晡晤晦晨曹曼望桫桴桶桷梁梅梏梓梗梦梭梯械梳梵检棂欲欷殍殒殓毫氪涪涫涮涯液涵涸涿淀淄淅淆淇淋淌淑淖淘淙淝淞淠淡淤淦淫淬淮深淳混淹添清渊渌渍渎渐渑渔渖渗渚渠烯烷烹烽焉焊焐焓焕焖焘爽犁猎猓猕猛猜猪猫率球琅理琉琏琐瓠甜略畦皎皑皲盒盔盖盗盘盛眦眭眯眵眶眷眸眺眼着睁矫砦硅硕票窑窒窕竟章笙笛笞笠笤笥符笨笪第笮笱笳笸笺笼笾筇累绩绪绫续绮绯绰绱绲绳维绵绶绷绸绺绻综绽绾绿缀缁缍羚羝羟翊翌翎耜聃聆聊聋职脚脯脱脸舂舳舴舵舶舷舸船舻艴菀菁菅菇菊菌菏菔菖菘菜菱菲菸菹菽萁萃萄萆萋萌萍萎萏萑萘萜萝萤营萦萧萨萸著虚蛊蛋蛇衔袈袋袤袭谋谌谘谙谚谛谜谝豉豚象赇赈赉赊赦跃跄距躯辄辅辆逭逮逯逵逶逸逻郾鄂鄄野铜铝争铬铭银铷阈阉阊阋阌阍阎阏阐隅隆隈隋隍随隐隗雀雩雪颅领颇馆馗骐骑骒骓鸽鸾鸿鹿麸麻黄龚龛鸶龀厣厩唪唬匏匐菝菟菠菡菥菩菪菰蚯蚰蚱蚴蚵蚶蚺蛀蛄蛆蛉蛎蛏衅袱袷袼裆裉觋觖谍谎谏谐谑谒谓谔谕谖谗唳唷唼唾唿啁啃啉啐啕啖啜啥啦啧啪啭啮啵啶啷啸喏喵赧趺趼趾酗酚酝酞铐铑铒铕铖铗铘铙铛崛崞崤崦铞铟铠铣铤铥铧铨稔铫铮铯铰铱铲铳铴铵颈馄馅骖鸷鸸鸹鸺悱悴悸悻悼惆惊惋惕惘惚惜惝惟惦惧惨惬惭惮捺捻掀掂掇授掉掊掎掏掐掬掭掮掳掴掷掸掺掼揶牾牿猖猗猊掖掘掠猝猞猡疵痊痍痒痔痕痖硇硌硎硐硒硖硗硭祭祷祸秸移秽稆粒粕粗粘粜粝聍胬脖脘脞脬脲脶\';

str12:=\'亵傅傈傍傣傥傧储傩傲凿剩割募博厥厦厨啻善喜喝堡堤堪堰塄塔壹奠奥婷婺婿媒媚媛媪嫂孱孳富寐寒寓尊就属屡崴崽崾稀嵇嵋嵌嵘嵛嵝嵫嵬嵯巯巽帽幂幄幅弑强弼彘彭御徨循悲惑惠惩惫愉慨戟戡戢扉掌掣揞揠握援敞散敦敬斌斐斑斯普景晰晴晶晷智晾暂暑曾替最朝期棉棋棍棒棕棘棚棠棣森棰棱棵棹棺棼椁椅椋植椎椐椒椟椠椤椭椰楗楮榔欹欺款殖殚殛毯毳毵毽氮氯氰淼渝渡渣渤渥温渫渭港渲渴游渺湃湄湍湎湓湔湖湘湛湟湫湮湾湿溃溅溆溉溲滁滋滑滞焙焚焦焯焰焱然煮牌牍犀猴琛琢琥琦琨琪琬琮琰琳琴琵琶琼瑛瓿甥甯番畲畴疏登皓皖短硝硪硫硬确硷祺禄禅禽宵稃程稍税窖窗窘窜窝竣童竦筅等筋筌筏筐筑筒答策筘筚筛筝筵粞粟粢粤粥粪紫絮絷缂缃缄缅缆缇缈缉缋缌缎缏缑缒缓缔缕编缗缘缙羡翔翕翘耋耠聒联脔脾腆腈腊腋腌腑腓腔腕腙腚腱腴舄舒舜舾艇萱萼落葆葑葙葚葛葜葡董葩葫葬葭葱葳葵葶葸葺蒂蒇蒈蒉蒋蒌蒎蛐蛑蛔蛘蛙蜓街裁裂装裎裒裕裙裢裣裤裥覃觌觚觞詈谟谠谡谢谣谤谥谦谧貂赋赌赍赎赏赐赓赔赕趁趄超越趋跆跋跌跎跏跑跖跗跚跛跞践辇辈辉辊辋辍辎辜逼逾遁遂遄遇遍遏遐遑遒道遗酡酢酣酤酥釉释量铸铹铺铼铽链铿销锁锋锌锐阑阒阔阕隔隘隙雁雄雅集雇雯雳靓韩颉颊颌颍颏飓鲁鲂鹁鹂鹃鹄鹅黍黑黹鼋鼎嗄嗅嗉嗌嗍嗑嗒嗓嗔嗜嗝嗡啼啾喀喁喂喃喇喈喉喊喋喑喔喘喙喟喧喱喳喷喹喻喽喾嗖嗟堙堞堠惰惴惶惹惺愀锂锃锄锅锆锇锈锉锊愎愕愠愣愤愦愧慌锍锎锏锑锒锓锔锕掰掾揄揆揉揍揎描提插揖飧飨馇馈馊馋骗骘骚骛鱿鹆鹇鹈揸揽揿搀搁搂搅搓搔搜搭搽摒揣揩揪揭揲犄犊犋犍猢猥猩猬猱猸猹猾琚痘痛痞痢痣痤痦痧痨痪痫皴睃睇睐睑矬\';
 
str13:=\'催傺傻像剽剿勤叠嗣嘟塌塍塑塘塞塥填塬墓媲媳媵媸媾嫁嫉嫌嫒嫔嫫寝寞尴嵊嵩嵴幌幕廉廒廓彀徭微想愁愆愈愍意愚感愫慈慊慎慑戤戥搋搌搏搐搛搞搠搡搦搪搬携摁摄摅摆摇摈摊摸敫数斟新旒暄暇暌暖暗椴椹椽椿楂楔楚楝楞楠楣楦楫楱楷楸楹楼榀概榄榆榇榈榉榘槌槎槐歃歆歇歌殿毁毂毹氲溏源溘溜溟溢溥溧溪溯溱溴溶溷溺溻溽滂滇滏滓滔滗滚滟滠满滢滤滥滦滨滩漓漠漭煅煊煌煎煜煞煤煦照煨煲煳煸煺牒犏献猷猿獒瑁瑕瑗瑙瑚瑜瑞瑟瑰甄畸畹痰痱痴痹痼痿瘀瘁瘃瘅瘐皙盟睚睛睡睢督睥睦睨睫睬睹瞄矮硼碇碉碌碍碎碑碓碗碘碚碛碜碰禀禁禊福稔稗稚稞稠稣窟窠窥窦筠筢筮筱筲筷筹筻签简粮粱粲粳缚缛缜缝缟缠缡缢缣缤罨罩罪置署群羧耢聘肄肆腠腥腧腩腭腮腰腹腺腻腼腽腾腿舅艄艉蒗蒙蒜蒡蒯蒲蒴蒸蒹蒺蒽蒿蓁蓄蓉蓊蓍蓐蓑蓓蓖蓝蓟蓠蓣蓥蓦蓬虞蛸蛹蛾蜂蜃蜇蜈蜉蜊蜍蜕蜗蜣衙裔裘裟裨裰裱裸裼裾褂褚觎觜解觥触訾詹誉誊谨谩谪谫谬豢貅貉貊赖趑趔跟跣跤跨跪跫跬路跳跷跸跹跺跻躲辏辐辑输辔辞辟遘遛遢遣遥遨鄙鄞鄢鄣酩酪酬酮酯酰酱鉴锖锗锘错锚锛锝锞锟锡锢锣锤锥锦锨锩锪锫锬锭键锯锰锱阖阗阙障雉雍雎雏零雷雹雾靖靳靴靶韪韫韵颐频颓颔颖飕骝骞魁魂鹉鹊鹋鹌鹎鹏鹑麂鼓鼠龃龄蜒馍馏馐骜鲅鲆鲇鲈鲋鲍鲎鲐骟骰骱髡嗤嗥嗦嗨嗪嗫嗬嗯嗲嗳嗵嗷蛛蛞蛟蛤蛩蛭蛮蛰蛱蛲蛳蛴}
 
str14:=\'龅龆僖僚僦僧僬僭僮僳儆兢凳劁劂厮嗽嗾嘀嘁嘈嘉嘌嘎嘏嘘嘛嘞嘣嘤嘧塾墁境墅墉墒墙墚夤夥嫖嫘嫜嫠嫡嫣嫦嫩嫱孵察寡寤寥寨屣嶂幔幛廑廖弊彰愿慕慝慢慵慷截戬搴搿摔摘摞摧摭摹摺撂撄撇撖敲斡旖旗暝暧暨榍榕榛榜榧榨榫榭榱榴榷榻槁槊槔槛槟槠槭模歉殡毓滴滹漂漆漉漏演漕漤漩漪漫漯漱漳漶漾潆潇潋潍潢潴澉煽熄熊熏熔熘熙熬犒獍獐瑭瑶瑷璃甍疑瘊瘌瘕瘗瘘瘙瘟瘥瘦瘩睽睾睿瞀瞅瞍碟碡碣碥碧碱碲碳碴碹磁磋禚稳窨窬窭竭端箅箍箐箔箕算箜箝管箢箦箧箨箩箪箫箬箸粹粼粽精糁綦綮缥缦缧缨缩缪缫罂罱罴翟翠翡翥耥聚肇腐膀膂膈膊膏膑膜臧舆舔舞艋蓰蓼蓿蔌蔑蔓蔗蔚蔟蔡蔫蔷蔸蔹蔺蔻蔼蔽蕖蜀蜘蜚蜜蜞蜡蜢蜥蜩蜮蜱蜴蜷蜻蜾蜿蝇蝈蝉螂裳裴裹褊褐褓褙褛褡褪觏觫誓谭谮谯谰谱谲豪貌赘赙赚赛赫跽踅踉踊踌辕辖辗辣遭遮鄯鄱酲酴酵酶酷酸酹酽酾酿銎銮锲锴锵锶锷锸锹锺锻锼锾锿镀镁镂镄镅阚隧雌雒需霁霆静靼鞅韬韶颗馑馒骠骡骢骶骷髦魃魄魅鲑鲒鲔鲕鲚鲛鲜鲞鲟鹕鹗鹘鹚鹛鹜麽鼐鼻\';
 
str15:=\'龇龈僵僻儇儋凛劈劐勰嘬嘭嘱嘲嘶嘹嘻嘿噌噍噎噔噗噘噙噜噢噶墀增墟墨墩嬉寮履屦嶙嶝幞幡幢廛影徵德慧慰憋憎憔憧憨憬懂戮摩撅撑撒撕撙撞撤撩撬播撮撰撵撷撸撺擒敷暮暴暹槲槽槿樊樗樘樟横樯樱橄橡橥毅滕潘潜潦潭潮潲潸潺潼澄澈澌澍澎澜澳熟熠熨熳熵牖獗獠瑾璀璁璇璋璎璜畿瘛瘠瘢瘤瘪瘫瘼瞌瞎瞑瞒瞢碾磅磉磊磐磔磕磙稷稹稻稼稽稿窳箭箱箴篁篆篇篌篑篓糅糇糈糊糌糍缬缭缮缯羯羰翦翩耦耧聩聪膘膛膝膣艏艘蔬蕃蕈蕉蕊蕙蕞蕤蕨蕲蕴蕺虢蝌蝎蝓蝗蝙蝠蝣蝤蝥蝮蝰蝴蝶蝻蝼蝽蝾螋褒褥褫褴觐觑觯谳谴谵豌豫赜赭趟趣踏踔踝踞踟踢踣踩踪踬踮踯踺躺辘遴遵醅醇醉醋醌鋈镆镇镉镊镌镍镎镏镐镑镒镓镔霄震霈霉靠靥鞋鞍鞑鞒题颚颛颜额飘餍馓馔骣骸骺骼髫髯魇鲠鲡鲢鲣鲤鲥鲦鲧鲨鲩鲫鹞鹣鹤麾黎\';
 
str16:=\'齑龉龊儒冀凝劓嘴噤器噩噪噫噬噱噻噼嚆圜墼壁壅嬖嬗嬴寰廨廪徼憝憩憷憾懈懊懒懔撼擀擂擅操擎擐擗擞整斓暾樨樵樽樾橇橐橘橙橛橱橹橼檎檠歙殪氅氆氇潞澡澧澶澹激濂濉濑濒熹燃燎燔燕燠燧犟獬獭璞瓢甏甑瘭瘰瘳瘴瘵瘸瘾瘿癀癃盥瞟瞠瞥瞰磨磬磲磺禧穆穑窿篙篚篝篡篥篦篪篮篱篷糕糖糗糙缰缱缲缳缴罹羲翮翰翱耨耩耪聱膦膨膪膳臻蕹蕻蕾薄薅薇薏薛薜薤薨薪薮薯螃螅螈融螓螗螟螨螭螯蟆蟒衡褰褶赝赞赠踱踵踹踽蹀蹁蹂蹄蹉辙辚辨辩遽避邀邂鄹醍醐醑醒醚醛錾镖镗镘镙镛镜镝镞镟隰雕霍霎霏霓霖靛鞔鞘颞颟颠颡飙飚餐髭髹髻魈魉鲭鲮鲰鲱鲲鲳鲴鲵鲶鲷鲸鲺鲻鹦鹧鹨鹾麇麈黉黔默\';
 
str17:=\'鼽儡嚅嚎嚏嚓壑壕嬲嬷孺嶷徽懋懑懦戴擘擢擤擦曙朦檀檄檐檑檗檩檬濞濠濡濮濯燥燮爵獯璐璨璩甓疃癌癍皤瞧瞩瞪瞬瞳瞵磴磷礁礅穗篼篾簇簋簌簏簖簧糜糟糠縻繁繇罄罅罾羁翳翼膺膻臀臁臂臃臆臊臌艚薰薷薹藁藉藏藐藓螫螬螳螵螺螽蟀蟊蟋蟑蟓蟥襁襄觳謇豁豳貔貘赡赢蹇蹈蹊蹋蹑蹒辫邃邈醢醣鍪镡镢镣镤镥镦镧镨镩镪镫隳霜霞鞠馘骤髀髁魍魏鲼鲽鳃鳄鳅鳆鳇鳊鳋鹩鹪鹫鹬麋黏黛黜黻鼢鼾龋繻\';
 
str18:=\'龌龠冁嚣彝懵戳曛曜檫瀑燹璧癔癖癜癞瞻瞽瞿礓礞簟簦簪糨翻艟藕藜藤藩蟛蟠蟪蟮襟覆謦蹙蹦蹩躇邋醪鎏鏊镬镭镯镰镱雠鞣鞫鞭鞯颢餮馥髂髅鬃鬈鳌鳍鳎鳏鳐鹭鹰\';
 
str19:=\'黝黟黠鼬嚯孽巅攀攉攒曝瀚瀛瀣爆璺瓣疆癣礤簸簿籀籁缵羸羹艨藻藿蘅蘑蘧蟹蟾蠃蠊蠓蠖襞襦警谶蹬蹭蹯蹰蹲蹴蹶蹼蹿酃醭醮醯鏖镲霪霭靡鞲鞴颤骥髋髌鬏魑鳓鳔鳕鳖鳗鳘鳙鹱麒麓\';
 
str20:=\'麴黢黼鼗嚷嚼壤孀巍攘曦瀵瀹灌獾瓒矍籍糯纂耀蘖蘩蠕蠛譬躁躅酆醴醵镳霰颥馨骧鬓魔鳜鳝鳞\';

str21:=\'鳟黥黧黩黪鼍鼯夔曩灏爝癫礴禳羼蠡蠢赣躏醺鐾露霸霹颦髓\';
 
str22:=\'鳢麝黯鼙囊懿氍瓤穰耱蘸蘼躐躔镶\';
 
str23:=\'霾饔饕攥髑鬻鹳麟攫癯罐趱躜颧\';
 
str24:=\'矗衢鑫\';
 
//第一个字符查找
e1:=STRFIND(str1,s1,1);
e2:=STRFIND(str2,s1,1);
e3:=STRFIND(str3,s1,1);
e4:=STRFIND(str4,s1,1);
e5:=STRFIND(str5,s1,1);
e6:=STRFIND(str6,s1,1);
e7:=STRFIND(str7,s1,1);
e8:=STRFIND(str8,s1,1);
e9:=STRFIND(str9,s1,1);
e10:=STRFIND(str10,s1,1);
e11:=STRFIND(str11,s1,1);
e12:=STRFIND(str12,s1,1);
e13:=STRFIND(str13,s1,1);
e14:=STRFIND(str14,s1,1);
e15:=STRFIND(str15,s1,1);
e16:=STRFIND(str16,s1,1);
e17:=STRFIND(str17,s1,1);
e18:=STRFIND(str18,s1,1);
e19:=STRFIND(str19,s1,1);
e20:=STRFIND(str20,s1,1);
e21:=STRFIND(str21,s1,1);
e22:=STRFIND(str22,s1,1);
e23:=STRFIND(str23,s1,1);
e24:=STRFIND(str24,s1,1);

n[1]:=if(e1>0,1,0);
n[2]:=if(e2>0,2,0);
n[3]:=if(e3>0,3,0);
n[4]:=if(e4>0,4,0);
n[5]:=if(e5>0,5,0);
n[6]:=if(e6>0,6,0);
n[7]:=if(e7>0,7,0);
n[8]:=if(e8>0,8,0);
n[9]:=if(e9>0,9,0);
n[10]:=if(e10>0,10,0);
n[11]:=if(e11>0,11,0);
n[12]:=if(e12>0,12,0);
n[13]:=if(e13>0,13,0);
n[14]:=if(e14>0,14,0);
n[15]:=if(e15>0,15,0);
n[16]:=if(e16>0,16,0);
n[17]:=if(e17>0,17,0);
n[18]:=if(e18>0,18,0);
n[19]:=if(e19>0,19,0);
n[20]:=if(e20>0,20,0);
n[21]:=if(e21>0,21,0);
n[22]:=if(e22>0,22,0);
n[23]:=if(e23>0,23,0);
n[24]:=if(e24>0,24,0);

//计算第一个字符的笔画
m1:=0;
x:=1;
WHILE m1=0 do BEGIN
m1:=n[x];
x:=x+1;
IF m1>0 then BREAK;
end;
m1:=x-1;
EXPLAIN(1,NUMTOSTR(m1,0));

//第二个字符查找
e1:=STRFIND(str1,s2,1);
e2:=STRFIND(str2,s2,1);
e3:=STRFIND(str3,s2,1);
e4:=STRFIND(str4,s2,1);
e5:=STRFIND(str5,s2,1);
e6:=STRFIND(str6,s2,1);
e7:=STRFIND(str7,s2,1);
e8:=STRFIND(str8,s2,1);
e9:=STRFIND(str9,s2,1);
e10:=STRFIND(str10,s2,1);
e11:=STRFIND(str11,s2,1);
e12:=STRFIND(str12,s2,1);
e13:=STRFIND(str13,s2,1);
e14:=STRFIND(str14,s2,1);
e15:=STRFIND(str15,s2,1);
e16:=STRFIND(str16,s2,1);
e17:=STRFIND(str17,s2,1);
e18:=STRFIND(str18,s2,1);
e19:=STRFIND(str19,s2,1);
e20:=STRFIND(str20,s2,1);
e21:=STRFIND(str21,s2,1);
e22:=STRFIND(str22,s2,1);
e23:=STRFIND(str23,s2,1);
e24:=STRFIND(str24,s2,1);

n[1]:=if(e1>0,1,0);
n[2]:=if(e2>0,2,0);
n[3]:=if(e3>0,3,0);
n[4]:=if(e4>0,4,0);
n[5]:=if(e5>0,5,0);
n[6]:=if(e6>0,6,0);
n[7]:=if(e7>0,7,0);
n[8]:=if(e8>0,8,0);
n[9]:=if(e9>0,9,0);
n[10]:=if(e10>0,10,0);
n[11]:=if(e11>0,11,0);
n[12]:=if(e12>0,12,0);
n[13]:=if(e13>0,13,0);
n[14]:=if(e14>0,14,0);
n[15]:=if(e15>0,15,0);
n[16]:=if(e16>0,16,0);
n[17]:=if(e17>0,17,0);
n[18]:=if(e18>0,18,0);
n[19]:=if(e19>0,19,0);
n[20]:=if(e20>0,20,0);
n[21]:=if(e21>0,21,0);
n[22]:=if(e22>0,22,0);
n[23]:=if(e23>0,23,0);
n[24]:=if(e24>0,24,0);

//计算第二个字符的笔画
m2:=0;
x:=1;
WHILE m2=0 do BEGIN
m2:=n[x];
x:=x+1;
IF m2>0 then BREAK;
end;
m2:=x-1;
EXPLAIN(1,NUMTOSTR(m2,0));

//第三个字符查找
e1:=STRFIND(str1,s3,1);
e2:=STRFIND(str2,s3,1);
e3:=STRFIND(str3,s3,1);
e4:=STRFIND(str4,s3,1);
e5:=STRFIND(str5,s3,1);
e6:=STRFIND(str6,s3,1);
e7:=STRFIND(str7,s3,1);
e8:=STRFIND(str8,s3,1);
e9:=STRFIND(str9,s3,1);
e10:=STRFIND(str10,s3,1);
e11:=STRFIND(str11,s3,1);
e12:=STRFIND(str12,s3,1);
e13:=STRFIND(str13,s3,1);
e14:=STRFIND(str14,s3,1);
e15:=STRFIND(str15,s3,1);
e16:=STRFIND(str16,s3,1);
e17:=STRFIND(str17,s3,1);
e18:=STRFIND(str18,s3,1);
e19:=STRFIND(str19,s3,1);
e20:=STRFIND(str20,s3,1);
e21:=STRFIND(str21,s3,1);
e22:=STRFIND(str22,s3,1);
e23:=STRFIND(str23,s3,1);
e24:=STRFIND(str24,s3,1);

n[1]:=if(e1>0,1,0);
n[2]:=if(e2>0,2,0);
n[3]:=if(e3>0,3,0);
n[4]:=if(e4>0,4,0);
n[5]:=if(e5>0,5,0);
n[6]:=if(e6>0,6,0);
n[7]:=if(e7>0,7,0);
n[8]:=if(e8>0,8,0);
n[9]:=if(e9>0,9,0);
n[10]:=if(e10>0,10,0);
n[11]:=if(e11>0,11,0);
n[12]:=if(e12>0,12,0);
n[13]:=if(e13>0,13,0);
n[14]:=if(e14>0,14,0);
n[15]:=if(e15>0,15,0);
n[16]:=if(e16>0,16,0);
n[17]:=if(e17>0,17,0);
n[18]:=if(e18>0,18,0);
n[19]:=if(e19>0,19,0);
n[20]:=if(e20>0,20,0);
n[21]:=if(e21>0,21,0);
n[22]:=if(e22>0,22,0);
n[23]:=if(e23>0,23,0);
n[24]:=if(e24>0,24,0);

//计算第三个字符的笔画
m3:=0;
x:=1;
WHILE m3=0 do BEGIN
m3:=n[x];
x:=x+1;
IF m3>0 then BREAK;
end;
m3:=x-1;
EXPLAIN(1,NUMTOSTR(m3,0));

//计算第四个字符的笔画
m4:=0;
x:=1;
WHILE m4=0 do BEGIN
m4:=n[x];
x:=x+1;
IF m4>0 then BREAK;
end;
m4:=x-1;
EXPLAIN(1,NUMTOSTR(m4,0));

希望能有一个结果和办法，我就能继续干活了。谢谢啦！

这么复杂的程序，金字塔与飞狐之间肯定会有细节差别，你把飞狐上的公式完全搬过来是多半有问题的，

能否给出一个简单明了的公式便于我们排查工作的，

或者您自行透过调试手段，看看具体在哪个地方出现了问题，请参考 http://www.weistock.com/bbs/dispbbs.asp?boardid=4&Id=332 问题4中的公式调试部分

版主你好，谢谢回复。我是在金字塔上写的，只是在飞狐上试用，因为函数差不多。其实也不复杂，把它贴到新建公式里就可运行，然后你对比计算出来的笔画数和实际的笔画数，出错率挺大的。另外，公式里X从1-24升序查找和从24-1降序查找计算出的数都可能有不同。

请麻烦试试，我认为不是编码问题，还是系统函数有问题。多谢！

你的公式过于复杂，我们无法得知你的具体用意，也搞不清楚应该得到一个什么样的结果，为了我们能更快的帮助你解决问题，您可否先自行通过调试手段查找一下具体在那句话哪个函数上出现了与飞狐不同的结果，这样我们就可以有针对性的协助你解决问题了