VFP 愛用者社區

[aforangel]

請問有高手可以幫把以下SOURCE轉為VFP Language嗎? 看不懂這語言


function mod10checkdigit($barcode) {

$sum_of_digit = 0;
$index = 0;
for ($i = strlen($barcode); $i > 0; $i--) {
$index++;
if (isodd($index) == true) {
$weight = 1;
} else {
$weight = 2;
}
$num = substr($barcode,$i-1,1);
$sum1 = $weight*$num;
if (strlen($sum1) == 2) {
$sum2 = intval(substr($sum1,0,1))+intval(substr($sum1,1,1));
} else {
$sum2 = $sum1;
}
$sum_of_digit = $sum_of_digit + $sum2;
}
$mod10 = ($sum_of_digit % 10);

if ($mod10 == 0) {
$checkdigit = 0;
} else {
$checkdigit = 10 - $mod10;
}
return $checkdigit;

}

[CPS0204]

我來試看看
function mod10checkdigit
LPARA barcode

sum_of_digit = 0
index1 = 0

FOR I=LEN(BARCODE) TO 1 STEP -1
INDEX1=INDEX1+1 && INDEX 是保留字,故改名

IF ISODD(INDEX1) && ISODD 不知是自定FUNC?
WEIGHT1=1 && WEIGHT 是保留字
ELSE
WEIGHT1=2
ENDIF
*----------------------------*
NUM1=SUBSTR(BARCODE,I-1,1) &&NUM是保留字
SUM1=WEIGHT1*NUM1
*------------------------------*
IF LEN(SUM1)=2
SUM2=INT(VAL(SUBSTR(SUM1,0,1)))+INT(VAL(SUBSTR(SUM1,1,1)))
ELSE
SUM2=SUM1
ENDIF
SUM_OF_DIGIT=SUM_OF_DIGIT+SUM2
NEXT I




MOD10=MOD(SUM_OF_DIGIT,10)
*---------------------------*
IF MOD10=0
CHECKDIGIT=0
ELSE
CHECKDIGIT=10-MOD10
ENDIF
*------------------*
RETURN CHECKDIGIT

[aforangel]

感謝, 我拿去試試看, 另這裡的 ISODD可能是EXCEL內一個功能, 我剛在網上查過

ISODD 函數
本文將說明 Microsoft Excel 中 ISODD 函數的公式語法及使用方式。
描述
如果數字為奇數，則傳回 TRUE；若為偶數，則傳回 FALSE。
語法
ISODD(number)
ISODD 函數語法具有下列引數：
Number 必要。 這是要檢定的值。 如果數字不是整數，則只會取整數。
註解
如果 number 非數值，ISODD 會傳回 #VALUE! 的錯誤值。

[syntech]

看到 "check digit barcode"

直接搜尋該BARCODE的驗證碼公式,再重新撰寫或是GOOGLE看看有沒有現成的函式庫,
不是比較快?


樓主另外出現的關鍵字是 "MOD10"
拿去搜尋可以得到:

http://www.activebarcode.com/codes/checkdigit/modulo10.html

Check digit calculation of Modulo 10


利用 "check digit barcode mod 10 foxpro" 搜尋可以得到:
http://www.tek-tips.com/viewthread.cfm?qid=1521726
http://fox.wikis.com/wc.dll?Wiki~BarCodeThings