Question

任何正文都可以帮助将此代码从VB6转换为JavaScript

Sub Insert()
Dim j As Long, r As Range
j = InputBox("Enter the number of sizes -1")
Set r = Range("A2")
Do
Range(r.Offset(1, 0), r.Offset(j, 0)).EntireRow.Insert
Set r = Cells(r.Row + j + 1, 1)
If r.Offset(1, 0) = "" Then Exit Do
Loop

End Sub

Answer 1

我不知道 VB 中的Range或Cell类，但如果您在JavaScript中重新实现其行为，您的代码可能会转换为以下内容

function VBRange(/* args */) {
    // re-implementation
}
function VBCells(/* args */) {
    // re-implementation
}
function Insert() {
    var j, r;
    j = parseInt(prompt(Enter the number of sizes -1), 10);
    r = VBRange("A2");
    do {
        VBRange(r.Offset(1, 0), r.Offset(j, 0)).EntireRow().Insert();
        r = VBCells(r.Row + j + 1, 1);
        if (r.Offset(1, 0) === "") {
            break;
        }
    } while (1);
}

代码转换器vb6到javascript

1 个答案: