break on

$nul = setoption('WrapAtEOL','On')

?? "[1] : " + @time

$K2E_EXEPath = @scriptdir
$lokaldb = $K2E_EXEPath + "\Artiklar.mdb"
$importfile = loadfile(@scriptdir + '\090420.csv')
$i_array = quicksort($importfile,0)

?? "[2] : " + @time

$ConnDSN = "Driver={Microsoft Access Driver (*.mdb)};Dbq=" + $lokaldb + ";Uid=;Pwd=;"
$sql = "CREATE TABLE tmptbl (Artikelnummer varchar (255), Benämning varchar (255), Styckpris double, Flag char (1), EAN varchar (255))"
$rs = DBCommand($ConnDSN,$sql)

?? "[3] : " + @time

For each $row in $i_array
  If Not $row = ''
    $items = Split($row,";")

    If not Instr($items[0],'Artikel')
      $aitem = Cstr($items[0])

      $bitem = Cstr($items[1])
      If Instr($bitem,"'")
        $bitem = Join(Split($bitem,"'"),"")
      Endif

      $citem = Join(Split($items[2],' '),'')

      $ditem = Cstr($items[3])

      $values = "'" + $aitem + "','" + $bitem + "','" + $citem + "','" + $ditem + "'"
      $fields = "Artikelnummer,Benämning,Styckpris,EAN"
      $sql = "INSERT INTO tmptbl(" + $fields + ") VALUES(" + $values + ")"
      $rs = DBCommand($ConnDSN,$sql)

      $items = ''

    Endif
  Endif
Next

?? "[4] : " + @time

Get $x

 Dim cn As ADODB.Connection
    Dim strSQL As String
    Dim lngRecsAff As Long
    Set cn = New ADODB.Connection
    cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
        "Data Source=C:\test\xltestt.xls;" & _
        "Extended Properties=Excel 8.0"
    
    'Import by using Jet Provider.
    strSQL = "SELECT * INTO [odbc;Driver={SQL Server};" & _
        "Server=<server>;Database=<database>;" & _
        "UID=<user>;PWD=<password>].XLImport9 " & _
        "FROM [Customers$]"
    Debug.Print strSQL
    cn.Execute strSQL, lngRecsAff, adExecuteNoRecords
    Debug.Print "Records affected: " & lngRecsAff
        
    cn.Close
    Set cn = Nothing

Function loadfile($file, optional $array, $Uni)
	DIM $fso,$f,$fs
	if $uni $uni = $uni-3 else $uni = -2 endif

	if not $uni $uni = -2 endif
	$fso = CreateObject("Scripting.FileSystemObject")
	$f = $fso.GetFile($file)
	If @ERROR Exit 2 EndIf
	$fs = $f.OpenAsTextStream(1,$uni)
	if not $array
		$loadfile = $fs.Read($f.size)
	else
		$loadfile = Split($fs.Read($f.size),$array)
	endif
	Exit @ERROR 
EndFunction
 

function quicksort($a, optional $indexcol )
    ;$a                        array to be sorted 
    ;$indexcol                 index of subitem to sort on 
 

Function loadfile($file)
  DIM $fso,$f,$fs

  $fso = CreateObject("Scripting.FileSystemObject")
	$f = $fso.GetFile($file)
	If @ERROR
    Exit(2)
  EndIf

  $fs = $f.OpenAsTextStream(1)
  $loadfile = Split($fs.Read($f.size),@CRLF)

  Exit(@ERROR)
EndFunction