код конвертор vb6 для

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

Я не знаю Range или Cell классов в VB, но если вы повторно реализовать свое поведение в 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); 
}