如何将 excel-vba 重写为 acrobat javascript？

【问题标题】：How to rewrite a excel-vba to acrobat javascript?如何将 excel-vba 重写为 acrobat javascript？
【发布时间】：2015-09-23 12:04:34
【问题描述】：

这是来自 excel 宏 (VB) 的代码，我该如何重写它才能在 adobe acrobat 上运行？

例如数字是“161628686041430”

Function upsp(nummer)
' Übergeben wird KdNr+Serviceart+Paketnummer (ohne 1Z)
'
qsm = 0
For i = 1 To 15
p = Mid(nummer, i, 1)
If Asc(p) > 57 Then p = (Asc(p) - 63) Mod 10
qsm = qsm + (p * (2 - i Mod 2))
Next
upsp = 10 - (qsm Mod 10)
If upsp = 10 Then upsp = 0
End Function

这个函数的结果应该是“2”。

感谢您的帮助。

【问题讨论】：

标签： javascript excel acrobat vba

【解决方案1】：

我认为这就是您要查找的内容，我尝试尽可能接近 Excel 代码，希望它更易于理解。如果您有任何问题，请告诉我...

alert(upsp('161628686041430'));

function upsp(nummer) {
  var qsm;
  var p;
  var returnValue;

  qsm = 0;
  for (var i = 0; i < nummer.length; i++) {
    p = nummer.substr(i, 1);
    if (p.charCodeAt(0) > 57) {
      p = (p.charCodeAt(0) - 63) % 10;
    }
    qsm = qsm + (p * (2 - ((i + 1) % 2)));
  }

  returnValue = 10 - (qsm % 10);
  if (returnValue === 10) {
    returnValue = 0;
  }

  return returnValue;
}

【讨论】：