habe mal ne frage

[Ripp3r]

ich habe ine einem programm ne text datei ausgelesen und die einzehlnen zeilen in nem array gespeichert!
ich habe jetzt aber in den zeilen noch mehrere werte die alle durch ein ";" getrennt habe mit welchem befehl kann ich die dann auslesen??
wie mpsste ich das dann machen?!?!

[ata]

... du kannst per Evaluate in LS auch mit Formeln arbeiten...

Wenn sString dein Arrayelement ist dann...

vValue = Evaluate( |@Explode( "|+sString+|" ; ";" )| )

damit erhälst du im Variant vValue ein Array mit Ergebnissen

ata

[Ripp3r]

hm ka wie du des meinst ich habe hier mal den quellcde

Dim filenumber As Integer   
   Dim filename As String
   Dim x As Integer   
   Dim text As String
   
   filename ="d:\namen.txt"
   filenumber% = Freefile   
   Open "c:\namen.txt" For Input As filenumber%
   x = 0
   Do While Not Eof(filenumber%)
      Redim Preserve array(x)
      Line Input #filenumber%, text$
      array(x) = Cstr(text$)      
      x = x  + 1
   Loop
   Close filenumber%



wie muss ich das jetzt dann da anängen??

[ata]

ich weiß leider nicht genau was du vorhast. Hier nehme ich einen Variant und befülle ihn mit den Werten, falls mehrere drin wären

   Dim vValue As Variant

   Do While Not Eof(filenumber%)
      Redim Preserve array(x)
      Line Input #filenumber%, text$
      array(x) = Cstr(text$)
      If Instr( array(x) , ";" ) > 0 Then
         vValue = Evaluate( |@Explode( "|+array(x)+|" ; ";" )| )
         ' # vValue => Array mit den Elementen - je nachdem, was du damit nun vorhast...
      End If     
      x = x  + 1
   Loop

Die Datei in ein Array einlesen ist allerdings nicht ganz unproblematisch, da ein Array maximal 64000 Elemente haben kann...

Solltest du die mehrfachwerte einer Zeile bereits in dem Array unterbringen wollen, dann müsste dein Array als 2-dimensionales Array aufgebaut werden...

ata

[Ripp3r]

@ ata wenn du oben meinen quellcode sihst da habe ich erst eine txt datei ausgelesen zeielnweise und die im array array(x) gespeichert !
die txt datei hat den aufbau
Vname;Nname;str;plz;ort
Vname;Nname;str;plz;ort
.
.
.
.
so jetzt will ich die einzelnen informationen in einer zeile
in strings oder array(weiß nit was beser ist) speichern!
so what shall i do???

[Semeaphoros]

Lieber Ripp3r

Du würdest uns allen einen Gefallen tun, wenn Du den Titel Deines Postings so formulierst, dass man auch gleich weiss, worum es geht. "Ich habe mal ne frage" sagt überhaupt nix aus, was Du eigentlich willst, schlimmer noch, in den allermeisten Fällen beinhalten die Postings hier Fragen, der Titel ist also - programmtechnisch gesagt - eine No Operation-Anweisung.

Lies doch bitte mal die Forums-,
 da wird nämlich nahegelet, wie man Titel abfassen soll, zum Beispiel: "Wie kann ich Mehrfachwerte in LS lesen?". Und dann steht da auch unser Wunsch drin, dass wir gerne die Leute bei Namen ansprechen würden ......

[Ripp3r]

mir egal1!!!!!

[Glombi]

mir egal1!!!!!

Leider die falsche Antwort!
Wenn Du Hilfe haben möchtest, dann solltest Du Dich schon an die Regeln halten. Also sei ein braves Mädchen

Andreas

[Driri]

So macht man sich unheimlich beliebt und verleitet die Forenmitglieder dazu, einem zu helfen. Da hilft auch der Smilie nix mehr.

[rar]

Uns egal1!!!!!

[Axel]

mir egal1!!!!!

Was soll denn das heissen? Wenn du dich hier nicht an die Regeln hälst, läufst du Gefahr, dass du hier nicht geholfen bekommst. Das ist übrigens in allen Foren so.

Nun zu deinem Problem.

Nach dem Close fügst du einfach folgendes an:

For i = 0 to Ubond(array)
  vValue = Evaluate( |@Explode( "|+ array(i) + |" ; ";" )| )
  'Hier kannst du vValue weiter verarbeiten
  ' wobei vValue(0) enthält Vname, vValue(1) enthält Nname usw.

Next

Ist doch eigentlich ganz einfach.

Axel

[Glombi]

Er/Sie will uns nur auf die Palme bringen. Ganz ruhig bleiben...
Wenn er/sie bei der Einstellung bleibt, gibt's halt keine Hilfe mehr, basta.

Andreas

[ata]

... nur die Ruhe bewahren....

Ich kann mich den Kollegen nur anschließen. Der Titel des Threads ist sehr schlecht gewählt - einem Anfänger sei das zugestanden , allerdings sind pampige Reaktionen falsch angebracht  - oder was soll das "mir egal" - in dem Fall ist der Thread hier für mich beendet - es sei denn der Schreiber bezieht Stellung und bringt eine klare Aussage zustande...

ata

[Ripp3r]

toll eure beiträge sind nun nicht mehr besser als meine Betreff!!!
ihr redet so am thema vorbei dann kann es ja egal sein ob es ein thema gibt oder nit wenn ihr eh nit drauf antwortet!!!!!!

[Axel]

Hi,

nun lass mal die Luft ab. Du legst es wirklich darauf an hier ignoriert zu werden. Wenn du dich hier an die Regeln hälst, sprich unter anderem die Frage/das Problem im Betreff fomurlierst, dann wird dir hier auch kompetent geholfen.


Axel

[ata]

... auf blanke Provokationen gehe ich nicht ein - zu billig...

und tschüß...

ata

[Ripp3r]

tschüss mit 2 ss plz danke auf wiedersehen!!!

[Hoshee]

Yoo,

... wenn ihr eh nit drauf antwortet!!!!!!

FALSCH!
Deiner Bitte um Hilfe wurde gefolgt. Du hast hier mehrere Lösungen angeboten bekommen. Wenn Dir die Regeln oder die Aufforderungen der Mods diesen Regeln nachzukommen egal sind, dann hat sich dieses Thema in diesem Moment erledigt.
Und sowas wie Dich wollen wir hier nicht ertragen!

Close by ...

Hoshee

[Axel]

Also gut. Du hast es nicht anders gewollt. Das war's dann. Wer hier andere Forenmitglieder beleidigt, hat hier nichts zu suchen.

Von mir (und von allen anderen auch) wirst du hier keine Hilfe mehr bekommen.
Das war's dann gewesen.

Axel


PS: Noch ein letzter Satz. ata ist ein sehr sympathischer und umgänglicher Mensch! Ich kenne ihn persönlich.