У меня есть функция vbscript, которую мне нужно преобразовать в функцию javascript.Функция использует eval (), и для меня было довольно непонятно преобразовать эту часть в javascript
. Необходимо переписать ее, поскольку текущая функция не работает в браузере Chrome.
Мне нужна только помощь с этой частью кода
locParts = ""
locAisle = RTrim(LTrim(eval("document.all.bbaisle" & x & ".value"))) & ""
locBay = RTrim(LTrim(eval("document.all.bbbay" & x & ".value"))) & ""
locLevel = RTrim(LTrim(eval("document.all.bblevel" & x & ".value"))) & ""
locBin = RTrim(LTrim(eval("document.all.bbbin" & x & ".value"))) & ""
Function buildLocation(x)
test = eval("document.all.bbtype" & x & ".value") & ""
if test = "A" then
' This is a multipart location that needs to be assembled prior to validation back in calling procedure
locParts = ""
locAisle = RTrim(LTrim(eval("document.all.bbaisle" & x & ".value"))) & ""
locBay = RTrim(LTrim(eval("document.all.bbbay" & x & ".value"))) & ""
locLevel = RTrim(LTrim(eval("document.all.bblevel" & x & ".value"))) & ""
locBin = RTrim(LTrim(eval("document.all.bbbin" & x & ".value"))) & ""
if locAisle <> "" then
locParts = locParts & locAisle & "_"
end if
if locBay <> "" then
locParts = locParts & locBay & "_"
end if
if locLevel <> "" then
locParts = locParts & locLevel
end if
if locBin <> "" then
locParts = locParts & "_" & locBin
end if
if locParts <> "" then
Execute("document.all.bb" & x & ".value=" & CHR(34) & UCASE(locParts)
& CHR(34))
end if
buildLocation = 1
else
' This is either an existing KT location or Offsite so do nothing
buildLocation = 1
end if
End Function
, это то, что я придумала в javascripts, но я сомневаюсь, что это будет работать, если я дублирую его для других переменных.
locParts = ""
locAisle = eval("document.getElementById('bbaisle')"+ x +".value").trim()