[英]Detect the language
有人可以幫助檢測該語言並描述此代碼的作用嗎? 有點像ALGOL,但是我不確定,謝謝。
//BEGIN
C_TEXT($1)
C_POINTER($2)
C_TEXT($3)
//
//
C_TEXT($TextToParse_t;$Delimiter_t;$Element_t)
C_LONGINT($To_l;$From_l;$DQ1_i;$DQ2_i)
C_POINTER($PtrToArray_p)
//
If (Count parameters>=3)
$TextToParse_t:=$1
$PtrToArray_p:=$2
$Delimiter_t:=$3
C_LONGINT($i;$Last)
If (Size of array($PtrToArray_p->)>0)
DELETE FROM ARRAY($PtrToArray_p->;1;Size of array($PtrToArray_p->))
End if
If ($TextToParse_t#"")
$From_l:=1
Repeat
$To_l:=Position($Delimiter_t;$TextToParse_t;$From_l)
If ($To_l>0)
$Element_t:=Substring($TextToParse_t;$From_l;$To_l-$From_l)
APPEND TO ARRAY($PtrToArray_p->;$Element_t)
$From_l:=$To_l+Length($Delimiter_t)
End if
Until ($To_l<=0)
$Element_t:=Substring($TextToParse_t;$From_l)
APPEND TO ARRAY($PtrToArray_p->;$Element_t)
End if
萬一
該代碼來自4D語言。 所有文檔都可以在這里找到。
http://doc.4d.com/4Dv17/4D/17/4D-Language-Reference.100-3729310.en.html
聲明:本站的技術帖子網頁,遵循CC BY-SA 4.0協議,如果您需要轉載,請注明本站網址或者原文地址。任何問題請咨詢:yoyou2525@163.com.