这是一些C代码吗？ [英] is this some c code ?

问题描述

我必须从1995年编写的旧DOS程序中检索数据，但我不会b / b
识别

语言 - 这是一个样本的.lib文件中使用的代码 - 任何人都可以

告诉我它是什么语言？提前致谢。这里是代码示例：

如果cmpy = 0 cmpy +

selsuc {}

usestk {ii，is，" inf\\ \\ _rech>}

sucrec = ide.sucrec

如果partiel = 2

mn = record（numrec）complex = 0

do LoadOpt，PrepTables

name_：c20 ="" + ppn（pnt（oo））

flush（0）

如果存在（trim（name _）+" .001"）kill（trim（name _）+" .001"）

top（oo）

index （oo，1,1）

如果categnb = 0& （rst<> 0）

partiel = 0 type4 = 1 do Type2b

else

if bycode {do Process_ else do Type3a}

endif

*如果categnb = 0& （rst<> 0）{partiel = 0 type4 = 1 do Type2b else do Type3a}

* if mn.suivant = 0 delete（mn）

lg：n3 = 1 seldes =""

for xy = 1 to 15

trouve = 0

if categ（xy）<> "" {selcateg = mid（selcateg，1，lg）+ categ（xy）trouve = 1}

if des（xy）<>"" {seldes = mid（seldes，1，lg）+ des（xy）trouve = 1}

if trouve lg = lg + 15

next

pass（0，selcateg，seldes，numrec）

返回

endif

如果kqte = 2

maxcmpynum = 0 totsuc = 0

maxnum = maxcmpynum top（suc）

而eof（suc）= 0

如果suc.inactif = 0

totsuc +

v = recno（suc）sucnum（totsuc）= suc.numero

* x = suc.numero如果x> maxnum maxnum = x

* x = recno（suc）如果x> maxnum maxnum = x

allsuc（totsuc）= uplow（suc.nom）

endif

getnext（suc）

wend

maxsuc = totsuc

maxnum = totsuc

x = 1 do SucListP sucaff =="？"

endif


scr：c11

root：c5

如果kqte = 2 root =" ext\s" else root =" ext \"

scr = trim（root）+" rech"

如果kind = 1 | （（kprix<> 0）&（kvente = 0））scr = trim（root）+" rechx"

如果kvente = 1 scr = trim（root）+" rech"

如果0 = 1

窗口（ext\rech）

窗口（" ext\rechx"）

窗口（" ext\rechb"）

窗口（" ext \rechxb"）

endif

vinter：b

needto：b

解决方案

"克里斯" < P8 ********** @ sympatico.ca>写在

新闻：ud ******************* @ news20.bellglobal.com：

我必须从1995年编写的旧DOS程序中检索数据，但我不认识
语言 - 这是.lib文件中使用的代码示例 - 可以
有人告诉我它是什么语言？提前致谢。这是代码
样本：

[snip]


这不是C.


-

- 马克 - >

-

< blockquote> chris写道：

我必须从1995年编写的旧DOS程序中检索数据，但我不认识
语言 - 这是一个样本.lib文件中使用的代码 - 任何人都可以告诉我它是什么语言？提前致谢。这是代码示例：

这有用吗：
http://www.filext.com/detaillist.php?extdetail=lib


如果不要尝试插入一些其他的文件扩展名，它看起来不像C对我来说

虽然。


Jeff

"克里斯" < P8 ********** @ sympatico.ca>写道：

我必须从1995年编写的旧DOS程序中检索数据，但我不认识
语言 - 这里是.lib文件中使用的代码示例 - 任何人都可以告诉我它是什么语言？提前致谢。这里是代码示例：
如果partiel = 2
mn = record（numrec）complex = 0
do LoadOpt，PrepTables
name_：c20 ="" + ppn（pnt（oo））
flush（0）
如果存在（trim（name _）+" .001"）kill（trim（name _）+" .001"）
top（oo）
index（oo，1,1）

这肯定不是C.它看起来像某种XBase。它不是
Clipper，但它可能是FoxPro，或者可能是DBase的更高版本。


Richard

I have to retreive data from a old DOS program written in 1995 but I don''t
recognize the
language -- Here''s a sample of the code used in the .lib files -- Can anyone
tell me what language it is ? Thanks in advance. Here''s the code sample :
if cmpy=0 cmpy+
selsuc{}
usestk{ii,is,"inf\rech"}
sucrec=ide.sucrec
if partiel=2
mn=record(numrec) complex=0
do LoadOpt,PrepTables
name_:c20=""+ppn(pnt(oo))
flush(0)
if exist(trim(name_)+".001") kill(trim(name_)+".001")
top(oo)
index(oo,1,1)
if categnb=0 & (rst<>0)
partiel=0 type4=1 do Type2b
else
if bycode { do Process_ else do Type3a }
endif
* if categnb=0 & (rst<>0) { partiel=0 type4=1 do Type2b else do Type3a }
* if mn.suivant=0 delete(mn)
lg:n3=1 seldes=""
for xy=1 to 15
trouve=0
if categ(xy)<>"" { selcateg=mid(selcateg,1,lg)+categ(xy) trouve=1 }
if des(xy)<>"" { seldes=mid(seldes,1,lg)+des(xy) trouve=1 }
if trouve lg=lg+15
next
pass(0,selcateg,seldes,numrec)
return
endif
if kqte=2
maxcmpynum=0 totsuc=0
maxnum=maxcmpynum top(suc)
while eof(suc)=0
if suc.inactif=0
totsuc+
v=recno(suc) sucnum(totsuc)=suc.numero
* x=suc.numero if x>maxnum maxnum=x
* x=recno(suc) if x>maxnum maxnum=x
allsuc(totsuc)=uplow(suc.nom)
endif
getnext(suc)
wend
maxsuc=totsuc
maxnum=totsuc
x=1 do SucListP sucaff=="?"
endif

scr:c11
root:c5
if kqte=2 root="ext\s" else root="ext\"
scr=trim(root)+"rech"
if kind=1 | ((kprix<>0) & (kvente=0)) scr=trim(root)+"rechx"
if kvente=1 scr=trim(root)+"rech"
if 0=1
window("ext\rech")
window("ext\rechx")
window("ext\rechb")
window("ext\rechxb")
endif

vinter:b
needto:b

解决方案

"chris" <p8**********@sympatico.ca> wrote in
news:ud*******************@news20.bellglobal.com:

I have to retreive data from a old DOS program written in 1995 but I
don''t recognize the
language -- Here''s a sample of the code used in the .lib files -- Can
anyone tell me what language it is ? Thanks in advance. Here''s the code
sample :

[snip]

It''s not C.

--
- Mark ->
--

chris wrote:

I have to retreive data from a old DOS program written in 1995 but I don''t
recognize the
language -- Here''s a sample of the code used in the .lib files -- Can anyone
tell me what language it is ? Thanks in advance. Here''s the code sample :

Does this help:
http://www.filext.com/detaillist.php?extdetail=lib

If not try plugging in a few other file extensions, It doesn''t look like C to me
though.

Jeff

"chris" <p8**********@sympatico.ca> wrote:

I have to retreive data from a old DOS program written in 1995 but I don''t
recognize the
language -- Here''s a sample of the code used in the .lib files -- Can anyone
tell me what language it is ? Thanks in advance. Here''s the code sample : if partiel=2
mn=record(numrec) complex=0
do LoadOpt,PrepTables
name_:c20=""+ppn(pnt(oo))
flush(0)
if exist(trim(name_)+".001") kill(trim(name_)+".001")
top(oo)
index(oo,1,1)

This is certainly not C. It looks like some kind of XBase. It''s not
Clipper, but it may be FoxPro, or perhaps a later version of DBase.

Richard

这篇关于这是一些C代码吗？的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！