Office: Array in einer .txt speichern

ich habe eine frage und zawr versuche ich ein array zu speichern indem ich eine textdatei öffnen lasse und das array über funktionen da reinbringe was ja ansich kein ding ist nur mein problem ist wie wandle ich das array so um das es auch in eine .txt geht? da ich immer datentyp fehler bekomme

:)

 

Hallo ?,

welche Daten bzw. Datentyp beinhaltet das Array?




« Gruß Sepp »

 

String und danke für die schnelle antwort

 

Hallo ?,

' **********************************************************************
' Modul: Modul2 Typ: Allgemeines Modul
' **********************************************************************
Option Explicit
Sub ArrayToTxt()
Dim vntText As Variant
Dim strTmp As String, strFile As String
strFile = "E:\Forum\array.txt"
vntText = Array("Das", "ist", "nur", "ein", "Beispiel")
strTmp = Join(vntText, ";")
Open strFile For Output As #1
Print #1, strTmp
Close #1
End Sub

Sub TextToArray()
Dim vntText As Variant
Dim strTmp As String, strFile As String
Dim lngIndex As Long
strFile = "E:\Forum\array.txt"
Open strFile For Input As #1
Input #1, strTmp
Close #1
vntText = Split(strTmp, ";")
For lngIndex = 0 To UBound(vntText)
MsgBox vntText(lngIndex)
Next
End Sub





« Gruß Sepp »

 

alles klar vielen dank für die mühe ich werds gleich mal umsetzen MFG

 

Bei mir hat sich ein weiteres problem ergeben also nun habe ich die idee des umwandelns verworfen und habe einen anderen weg gefunden mein array in eine text datei zu schreiben nur beim auslesen klappt es nochnicht so ganz schreiben tue ich wie folgt:

Private Sub CommandButton4_Click()
Dim Dateinummer
Dim Lager As Integer
Dim Regal As Integer
Dim Lage As Integer
Dateinummer = FreeFile
Open "D:\Schule\prg\Array\Speicher.txt" For Output As #Dateinummer
For Lager = 0 To 1
For Regal = 0 To 9
For Lage = 0 To 3
Write #Dateinummer, Array1(Lager, Regal, Lage) & "," & Lager & "," & Regal & "," & Lage
Next Lage
Next Regal
Next Lager
Close #Dateinummer
End Sub




in der .txt steht also nun:"wurst,0,0,0"
",0,0,1"
",0,0,2"
",0,0,3"
",0,1,0"
",0,1,1"
",0,1,2"
",0,1,3"
",0,2,0"
",0,2,1"
",0,2,2"
",0,2,3"
",0,3,0"
",0,3,1"
",0,3,2"
",0,3,3"
",0,4,0"
",0,4,1"
",0,4,2"
",0,4,3"
",0,5,0"
",0,5,1"
",0,5,2"
usw

meine frage ist wie kann ich dies nun auslesen? die get anweisung wäre eine möglichkeit allerdings bekomme ich damit eher arge probleme

 

keiner einen lösungsansatz parat?

 

Ein übersichtlicher Ansatz wäre:
- Textdateiinhalt in Stringvariable übernehmen: Beliebige Datei einlesen
- String per Split in Zeilen trennen (Array entsteht)
- Arrayfelder per Replace von den Anführungsstrichen befreien und dann per nochmaligen Split in Einzelwerte zerlegen

 

Hallo,

Hier mal eine Beispiel Datei "Mr_Belbedair_V1.xls"

Mit deinem Script Schreiben und ein Datenimport Script ab Zellen A1:C1


« Gruß Peter9 »

 

hey danke für die hilfe allerdings schreibe ich damit das ganze ja nur 1:1 in die tabelle ich muss allerdings versuchen aus der text datei quasi ohne umwege in das array zu schreiben ich denke die split funktion ist hier ein guter ansatz nur fällt mir die anwendung etwas schwer