SpiderBasic

Code: Select all

Procedure HttpGetEventCSV(success,result$,userdata)
    If success
    	<do whatever you want with result$>
    EndIf
EndProcedure

Procedure ReadFileCallback()
    protected nblines.i, i.i
    <read file content process here >
    For i = 1 To nblines
    	HTTPRequest(#PB_HTTP_GET,<url incl actual line information>,"",@HttpGetEventCSV(),i)
    next
EndProcedure

Procedure CSVFileRequesterCallback()
    If NextSelectedFile()
        OpenFile(#file,SelectedFileID(),@ReadFileCallback(),#pb_LocalFile)
    EndIf
EndProcedure

Procedure openFileEvent()
    openFileRequester("text/csv",@CSVFileRequesterCallback())
EndProcedure

Procedure main()
    openFileEvent()
EndProcedure

main()

Code: Select all

// Defines a delay function which returns a Promise
function delay(ms) {
    return new Promise(resolve => setTimeout(resolve, ms));
}

// An asynchronous function which handles the critical part
async function safeProcedure(name) {
    console.log(`Starts the secure procedure ${name}`);
    await delay(2000); // Simulates the time consuming process
    console.log(`End of secure procedure ${name}`);
}

// Control funtion which controls the procedure sequence
async function controlProcedure() {
    await safeProcedure("1");
    await safeProcedure("2");
}

// Call of control procedure
controlProcedure();