Cyvre 发表于 2010-10-24 20:13:24

ns变量提取第二版：Search'enALL 2

在缩减体积的同时增强了功能支持各种苛刻的代数式（比如带sin(等函数的，变量是weei_12_fs970_dsfhskjhlsk之类的）
程序就不发了，直接上源码，大家随便使用
Define checkchar(str)=
Prgm
If getType(str)≠"STR"
string(str）→str
characters:={_,a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r,s,t,u,v,w,x,y,z,0,1,2,3,4,5,6,7,8,9}
times:=1
For times,1,37,1
inString(str,string(character））→checkresult
If checkresult≠0
    Exit
EndFor
If checkresult≠0 Then
If 1≤times≤27 Then
    checkresult:=1
ElseIf 28≤times≤37 Then
    checkresult:=2
EndIf
EndIf
Delvar characters,times
EndPrgm
-----------------------------------------------------------------------------------------------
-----------------------------------------------------------------------------------------------
Define getvar(str)=
Prgm
If getType(str)≠"STR"
string(str)→str
dim(str)→size
times0:=0
checkresult:=0
Lbl start
While checkresult≠1 and times0-1≤size
times0:=times0+1
checkchar(right(left(str,times0),1))
EndWhile
times1:=times0
While checkresult≠0 and times0-1≤size
checkchar(right(left(str,times0),1))
times0:=times0+1
EndWhile
If right(left(str,times0-1),1)="(" Then
times0-1→times0
Goto start
EndIf
right(left(str,times0-2),times0-times1-1）→variable
Disp variable
Delvar size,times0,times1,checkresult,variable
EndPrgm

Cyvre 发表于 2010-10-24 20:14:40

最近还打算编一个三国杀 for ns

Cichol 发表于 2010-11-6 23:04:04

三国杀我做过
不过中途没耐性失败了
有些地方很烦。。
期待你能做出

imath 发表于 2010-11-7 11:51:11

你也玩三国杀？
我是彻底的新手

diameter 发表于 2010-11-7 12:22:55

写一个仙剑 for ns吧
我在写仙剑 for 9750

imath 发表于 2010-11-7 17:30:37

for ns？
实时游戏几乎不可能

Cyvre 发表于 2010-11-7 18:17:11

写一个仙剑 for ns吧
我在写仙剑 for 9750
diameter 发表于 2010-11-7 12:22 http://www.cncalc.org/images/common/back.gif
No way……

diameter 发表于 2010-11-7 21:06:06

…………我就知道……
页: [1]
查看完整版本: ns变量提取第二版：Search'enALL 2