Top-Themen

Aktuelle Themen (A bis Z)

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit

Textdatei getrennt durch Pipe in Array zerlegen

Frage Entwicklung VB for Applications

Mitglied: chb1982

chb1982 (Level 2) - Jetzt verbinden

22.06.2009, aktualisiert 09:40 Uhr, 5452 Aufrufe, 5 Kommentare

Moin zusammen,

im Moment bentutze ich die Funktion csvReader aus dem LumenWorks Framework.
Diese zerlegt eine Kommagetrennet Textdatei in ein Array. Leider nur Kommagetrennt und es gibt keine Möglichkeit das Trennzeichen zu beeinflussen.

Nun habe ich meine Textdatei auf Pipe-Getrennt | umgestellt.

Wie kann ich nun am einfachsten mit VB2008 diese Datei in ein Array zerlegen?

Gruß
Christoph
Mitglied: bastla
22.06.2009 um 10:48 Uhr
Hallo morpheus31337!

Q & D etwa so:
01.
Dim MyLines = Split(New System.IO.StreamReader("D:\Test.txt").ReadToEnd, vbNewLine) 
02.
Dim i As Integer, MyArray(UBound(MyLines)) 
03.
For i = 0 To UBound(MyLines) 
04.
    MyArray(i) = Split(MyLines(i), "|") 
05.
Next 
06.
 
07.
MsgBox("Demo: " & MyArray(2)(4))
Grüße
bastla

[Edit] Nur zur Sicherheit "System.IO." in Zeile 1 ergänzt. [/Edit]
Bitte warten ..
Mitglied: filippg
22.06.2009 um 15:11 Uhr
Hallo,

der von bastla gepostete Code ist nicht ganz risikolos. Er versagt, wenn der Text auch | enthält. Üblich ist es, dann das gesamte Token in Anführungszeichen zu setzen. Wenn man das behandeln will, muss man den String Schrittweise zerlegen und die Anführungszeichen bis zum nächsten | zählen. Ist die Anzahl ungerade (" können ja auch im Text vorkommen), so ist dieses | kein Trennzeichen, sondern Bestandteil des Tokens. Natürlich ist auch das nicht 100% sicher, da niemand garantieren kann, dass die " immer paarweise gesetzt sind. Lange Rede, kurzer Sinn: Informationen aus CSVs (was auch immer jetzt das Trennzeichen ist) lassen sich nicht immer 100% korrekt zurückgewinnen.

Gruß

Filipp
Bitte warten ..
Mitglied: bastla
22.06.2009 um 15:17 Uhr
@filippg
Full ACK; allerdings sollte ja
Nun habe ich meine Textdatei auf Pipe-Getrennt | umgestellt.
einen Sinn gehabt haben (zB ein Trennzeichen zu verwenden, das nicht in den Daten vorkommt) ...

Grüße
bastla
Bitte warten ..
Mitglied: chb1982
24.06.2009 um 08:33 Uhr
Zitat von bastla:
Hallo morpheus31337!

Q & D etwa so:
01.
Dim MyLines = Split(New 
02.
> System.IO.StreamReader("D:\Test.txt").ReadToEnd, vbNewLine) 
03.
> Dim i As Integer, MyArray(UBound(MyLines)) 
04.
> For i = 0 To UBound(MyLines) 
05.
>     MyArray(i) = Split(MyLines(i), "|") 
06.
> Next 
07.
>  
08.
> MsgBox("Demo: " & MyArray(2)(4)) 
09.
> 
Grüße
bastla

Hi,

das klappt soweit super. Vielen Dank bis hier hin.
Ein Problem habe ich aber noch. In der Quelldatei stehen alle Werte in Anführungszeichen. Mit dem csvreader wurden wie entfernt, jetzt habe ich natürlich in jeder Variablen auch die "" drin.
Gibt es da noch eine simple Lösung diese einfach zu ignorieren?
Bitte warten ..
Mitglied: bastla
24.06.2009 um 10:13 Uhr
Hallo morpheus31337!

Sollte mit folgender Zeile 5 klappen:
MyArray(i) = Split(Replace(MyLines(i), """", ""), "|")
Grüße
bastla
Bitte warten ..
Ähnliche Inhalte
Batch & Shell
PowerShell Array in Textdatei ausgeben
gelöst Frage von derhoeppiBatch & Shell2 Kommentare

Hallo, der Titel hört sich nicht allzu schwer an. Ich habe eine Foreach Schleife die Durchläuft und ein Array ...

Java
Textdatei in Array speichern (zeilenweise)
gelöst Frage von BruchsalJava1 Kommentar

Hallo, ich möchte aus einer Textdatei zeilenweise den Inhlat in ein String Array speicher. Ist das nur mit einem ...

Batch & Shell
PowerShell String zerlegen in Array, DataTable, Hashtable speichern
gelöst Frage von derhoeppiBatch & Shell7 Kommentare

Guten Morgen, leider habe wieder ein Thema beim zerlegen eines Strings. Folgendes Problem: Die Rückgabe eines Admintools liefert mir ...

Windows Server
Powershell array zeilenweise in Textdatei ausgeben
gelöst Frage von Peter0816Windows Server6 Kommentare

Hallo, ich habe folgendes vor: $features = Get-WindowsFeature $features = $features.name und die Ausgabe am Bildschirm erscheint auch richtig: ...

Neue Wissensbeiträge
Apple

IOS 11.2.1 stopft HomeKit-Remote-Lücke

Tipp von BassFishFox vor 6 StundenApple

Das Update für iPhone, iPad und Apple TV soll die Fernsteuerung von Smart-Home-Geräten wieder in vollem Umfang ermöglichen. Apple ...

Windows 10

Windows 10 v1709 EN murkst bei den Regionseinstellungen

Tipp von DerWoWusste vor 11 StundenWindows 10

Dieser kurze Tipp richtet sich an den kleinen Personenkreis, der Win10 v1709 EN-US frisch installiert und dabei die englische ...

Webbrowser

Kein Ton bei Firefox Quantum über RDP

Tipp von Moddry vor 12 StundenWebbrowser

Hallo Kollegen! Hatte das Problem, dass der neue Firefox bei mir auf der Kiste keinen Ton hat, wenn ich ...

Internet

EU-DSGVO: WHOIS soll weniger Informationen liefern

Information von sabines vor 23 StundenInternet4 Kommentare

Wegen der europäische Datenschutzgrundverordnung stehen die Prozesse um die Registrierung von Domains auf dem Prüfstand. Sollte die Forderungen umgesetzt ...

Heiß diskutierte Inhalte
LAN, WAN, Wireless
Von rj11 auf rj45
Frage von jensgebkenLAN, WAN, Wireless19 Kommentare

Hallo Gemeinschaft, könnt ihr mir vielleicht bei der anfertigung eines Kabels helfen - habe ein rj 11 stecker und ...

Netzwerkmanagement
Firefox Profieles im Roaming
gelöst Frage von Hendrik2586Netzwerkmanagement17 Kommentare

Hallo liebe Leute. :) Ich hab da ein kleines Problem, welches anscheinend nicht unbekannt ist. Wir nutzen hier in ...

LAN, WAN, Wireless
Häufig Probleme beim Anmelden in WLAN
Frage von mabue88LAN, WAN, Wireless15 Kommentare

Hallo zusammen, in einem Netzwerk gibt es relativ häufig (1-2 mal pro Woche) Probleme mit der WLAN-Verbindung. Zunächst mal ...

Windows Server
Remotesteuerung der Sitzung (Kennung XX) fehlgeschlagen
gelöst Frage von Stefan91Windows Server14 Kommentare

Hallo Zusammen, seit kurzem bekomme ich oben genannte Fehlermeldung, wenn ich versuche eine Remotesitzung über den Taskmanager fernzusteuern (Rechtsklick ...