Text in Liste umwandeln

[macfan]

hallo zusammen

wie kann ich einen text in eine liste umwandeln? hier is der text:
ï20030224 24.02.2003*Nachricht.
ï20030223 23.02.2003*Anderer Text.
ï20031224 24.12.2003*Noch ein text.
ï20020202 02.02.2002*Was noch?
ï"

die einträge beginnen immer mit einem fetten punkt.

gruss macfan

[Snow]

Hallo macfan,

wie wär's damit:

set theText to "ï20030224 24.02.2003*Nachricht.
ï20030223 23.02.2003*Anderer Text.
ï20031224 24.12.2003*Noch ein text.
ï20020202 02.02.2002*Was noch?
ï"

set theList to every paragraph of theText
_________________
Peter
-
Fischer-Bayern.de|Shadetreemicro.com

[macfan]

danke snow für deine idee

das proble ist, dass es auch erlaubt sein soll zeilenumbrüche im text einzufügen.

ich habe hier meine lösung. es ist nur ein wenig langsam:
property AnfangTerminEintraege : "2"
set AnfangTerminEintraege to "2"
property TerminListe : ""
property ListenLaenge : ""
property TerminListeAlsListe : {}
property TerminListeNeu : ""

set TerminListeNeu to "Textdatei Kommentar
ï20030224 24.02.2003*Nachricht.
ï20030223 23.02.2003*Anderer Text.
ï20031224 24.12.2003*Noch ein text.
ï20020202 02.02.2002*Was noch?
ï"

TerminListeNeuInListeUmwandeln()

on TerminListeNeuInListeUmwandeln()
--Neue Terminliste in Liste umwandeln
set NaechsterEintrag to AnfangTerminEintraege
set TerminListeAlsListe to {}
set AppleScript's text item delimiters to "ï"
set AnzahlEintraege to count text item of TerminListeNeu
----Neue Einträge zur Liste hinzufügen
repeat until NaechsterEintrag = AnzahlEintraege
set AppleScript's text item delimiters to "ï"
set TerminListeAlsListe to TerminListeAlsListe & text item NaechsterEintrag of TerminListeNeu as list
set NaechsterEintrag to NaechsterEintrag + 1
end repeat
----Ende (Neue Einträge zur Liste hinzufügen)
--Ende (Neue Terminliste in Liste umwandeln)
set ListenLaenge to length of TerminListeAlsListe
end TerminListeNeuInListeUmwandeln
TerminListeNeu

gruss macfan

[Pesse]

Hi

Hab ne bessere Idee. Benutz doch einfach die Text item delimiters von AppleScript:

set theText to "ï20030224 24.02.2003*Nachricht.
ï20030223 23.02.2003*Anderer Text.
ï20031224 24.12.2003*Noch ein text.
ï20020202 02.02.2002*Was noch?
ï"
set oldDelims to AppleScript's text item delimiters
set AppleScript's text item delimiters to "ï"
set theList to every text item of theText as list
set AppleScript's text item delimiters to oldDelims

Und Voilý!

Gruß Pesse
_________________
<>< Think logical! ><>

[macfan]

hallo pesse

danke für deine hilfe. gibt es auch eine möglichkeit, dass es alle text objekte ausser das erste nimmt? im ersten steht dann eben noch etwas anderes.

gruss macfan

[Pesse]

HI

Gar kein Problem. Einfach im Nachhinein einfügen:

set theCount to count items of theList --Damit liest du aus, wieviele Listenpunkte du hast
set theList to items 2 thru theCount of theList --Die Einträge von Punkt 2 bis theCount (also der letzte Punkt) in theList speichern

Ich hoffe, das war verständlich, ansonsten frag ruhig!

Gruß Pesse
_________________
<>< Think logical! ><>

[macfan]

Danke Pesse
das war genau das, was ich noch wissen wollte. super!!!

gruss macfan