Nur für's Hirn:
so wär's natürlich auch gegangen ;-)
dim i,n as Integer
dim t as string
t = EditField1.text
n = CountFields(t, EndOfLine.Macintosh)
for i = 1 to n
Speak NthField(t, EndOfLine.Macintosh,i)
next
a.
at 01.04.08 21:23, Mike Ott wrote:
> Cool! Wäre auf so eine stringente Variante nicht gekommen...
>
> Merci
> Mike
>
>
> Am 01.04.08 14:49 schrieb "Andy Fuchs" unter <[EMAIL PROTECTED]>:
>
>> Sowas?
>>
>> dim arr(-1) as string
>> dim i as Integer
>>
>> arr = Split(EditField1.text, EndOfLine.Macintosh)
>>
>> for i = 0 to Ubound(arr)-1
>>
>> Speak arr(i)
>>
>> next
>
>
