Multi Files Importer: How to import SAP/AIS files

Thank you, I appreciate it.
 
Here is the code:
 
dbName = "ZB_ANLB_1000_03_2016.IMD"
 
Client.ImportDelimFile "F:\MA-RT\F-Geim\Projekte\Digitale JAP\IDEA Hauptprüfung\Quelldateien.ILB\ZB_ANLB_1000_03_2016", dbName, FALSE, "", "F:\MA-RT\F-Geim\Projekte\Digitale JAP\IDEA\Hauptprüfung\Importdefinitionen.ILB\ZB_ANLB_1000_03_2016.RDF", FALSE
 
Client.OpenDatabase (dbName)
 
The files have no extensions. I tried to implement that code in the code mentioned in my first post, but I failed.
 
With SAP/AIS format no importdefinitions are needed, because the definitions are embedded in the files.

 
 

Hi Brian,
 
thank you very much.
 
I changed the code slightly to:
 
For i = 0 To x  
             d
bName = listbox2$(i) & ".IMD"  'add the IMD extension to the selected file
     Client.ImportDelimFile picked_folder & "\" &  listbox2$(i) , dbName, FALSE, "", workingFolder & "\Importdefinitionen.ILB\ZB_ANLA_1000_01_2016.RDF", FALSE
 
         Next  
 
Now it works well.
 
One issue is left: E.g. I have 5 files in the choosen path with no extensions. The files have to been imported as follow:
1. SAP/AIS2.SAP/AIS3. SAP/AIS4. Text5. SAP/AIS
 
How do I have to adjust the code that the code doesn't stop at No. 4?
As a result No 1, 2, 3, and 5 should be imported after the script.
 
 

One question left.
 
In a dialog I've got 2 listboxes. One on the left side an the other one on the right side. Over a push button ">" and another push button "<" you can switch the listbox entries from one to another.
 
Therefore the code to follow is used. How do I have to enhance the code that I'am able to drop all of the files with the buttons "<<" and ">>" from listbox1 to listbox2?
 
Do
button = Dialog(mydialog)
'------- If button pressed and list isn't empty
If button = 1  And mydialog.listbox1 <> -1 Then   chosenfile = mydialog.listbox1 chosentxt = listbox1$(chosenfile)
 z = 0
  Do Until listbox2$(z) = ""   z = z + 1  Loop
 listbox2$(z) = chosentxt listbox1$(chosenfile) = ""
End If 
If button = 2 And mydialog.listbox2 <> -1Then  
 chosenfile = mydialog.listbox2   chosentxt = listbox2$(chosenfile)
 '------ This part looks for the first empty slot to input the selection   z = 0       Do Until listbox1$(z) = ""   z = z + 1  Loop
'--------  Copies to the first empty slot and clears the selection from the selection list
 listbox1$(z) = chosentxt    listbox2$(chosenfile) = ""   
End If
 cleanup_listbox1    cleanup_listbox2 
 '------- Loops until Ok or Cancel is clicked
Loop  Until button < 1      
If button = 0 Then GoTo exit_sub
z = 0
x = UBound(listbox2$)
'---------- Count Values in Listbox2$ array and reinitialize array with new dimensions.
 For i = 0 To x
  If listbox2$(z) <>  "" Then         z = z + 1     End If
 Next
   ReDim preserve listbox2$(z - 1)
x = UBound(listbox2$)
 

Hi Brian,
 
thanks for sharing the code - works fine.
 
I still have an issue with the import of SAP/AIS file (post #3 and #4).
 
If you import a SAP/AIS file through the IDEA menue you don't have to do anything except clicking the OK button, because the import definitions are embedded in SAP/AIS files. This is the key difference between e.g. csv files and SAP/AIS files.
 
Do you have an idea how to customize the code to follow to "use" IDEA's usual way to import SAP/AIS files?
 
Client.ImportDelimFile picked_folder & "\" &  listbox2$(i) , dbName, FALSE, "", workingFolder & "\Importdefinitionen.ILB\ZB_ANLA_1000_01_2016.RDF", FALSE
 
Just for clarification:  If you import those SAP/AIS files "manually" through the IDEA menue you don't have to choose  "ZB_ANLA_1000_01_2016.RDF".
 
It must be possible because IDEA is also working without a RDF file.
 
Do you have any idea?