[kix]vreemd read write probleem

[LordMithril]

ik heb een vreemd probleem met kixtart..
ik probeer een automatisch ,mail programma te maken dat de mail uit een textbestand leest. nu ben ik tegen een heel vreemd probleem aangelopen.
als met de hier onderstaande code uit het textfiletje lees zet hij alleen de laatste regel in t mailtje.
als ik de dik gedrukte regel ergens ander neerzet doet hij niks.

Open(1, "E:\kix\text.txt",2)
While @ERROR = 0
$= OLEPutProperty($objItem, "Body", "s", "$x")
$x = ReadLine(1)
Loop
Close (1)

met de code hieronder krijg j eerst een messge box met de eerste regel en dan zet hij de eerste regel ook in t mailtje.. zonder die message box doet hij het niet.

Open(1, "E:\kix\text.txt",2)
While @ERROR = 0
$x = ReadLine(1)
MessageBox("$x",dom,0,)
Loop
$= OLEPutProperty($objItem, "Body", "s", "$x")
Close (1)

ik heb er al meerdere site op nageslagen ook het kixtart help boek zelf.. maar ik kom er echt niet uit
kan het uberhaupt wel.. en zoja hoe? (en please niet aankomen dat ik een ander programma moet gebruiken.. ik wil t hiermee)

[Praetorian]

Ik zou het zo 1 2 3 ook niet weten, maar ik weet dat je op www.kixstart.org een prachtig forum hebt waar als je dit vraagt binnen een paar uur antwoord hebt!

Ik heb daar (en natuurlijk ook hier) heel veel hulp gekregen.

(btw, een variabele moet toch niet tussen quotes?) -> "$X" ???

[TwoR]

Op de website van Kixstart zelf moet je toch redelijk veel kunnen vinden volgens mij.

[Praetorian]

Onder je readline moet je dit eens proberen:

code:

while "$x <> -1"

[LordMithril]

Praeth schreef op 04 september 2002 @ 08:51:
Ik zou het zo 1 2 3 ook niet weten, maar ik weet dat je op www.kixstart.org een prachtig forum hebt waar als je dit vraagt binnen een paar uur antwoord hebt!

Ik heb daar (en natuurlijk ook hier) heel veel hulp gekregen.

(btw, een variabele moet toch niet tussen quotes?) -> "$X" ???

dan zal ik t daar ook f proberen.. (tja GoT verslaafd he )
en die variabele moet wel tussen quotes.. anders doet ie nog minder

[LordMithril]

Praeth schreef op 04 september 2002 @ 08:54:
Onder je readline moet je dit eens proberen:

code:

while "$x <> -1"

in welke van de 2 voorbeelden?
in allebij doet hij niks...
in de 2e blijft hij zelf oneindig loopen

[ArCadE]

Het is www.kixtart.org
In je eerste script moet je ook nog een readline doen voordat je de while lus opstart. Alleen de file openen heeft niet zoveel zin.

[ Voor 0% gewijzigd door ArCadE op 04-09-2002 09:08 . Reden: typo...... ]

[LordMithril]

ArCadE schreef op 04 september 2002 @ 09:06:
Het is www.kixtart.org
In je eerste script moet je ook nog een readline doen voordat je de oleputproperty aanroept. Alleen de file openen heeft niet zoveel zin.

dat is t em dus.. als ik die readline voor de oleputpropety zet werkt het hele programma niet
dat was namelijk ook mijn eerste idee
t werkt alleen als ik het doe zoals de 2e code.. met een message box erin

[ArCadE]

Hm,

bekijk dit anders even....

CLS BREAK ON
$UtilDir = "C:\temp"
$SList = "$UtilDir\lines.txt"
IF OPEN(1,"$SList")=0
$SName = READLINE(1)

WHILE $SName
? "Processing: $SName"
$ReturnCode = Existkey("....")

If $ReturnCode = 0
....
Else
....
Endif
sleep 2
$null = CLOSE(2)
$y = .......
$x = WriteLine( 3 , "$y")
$SName = READLINE(1)
LOOP
$null = CLOSE(1)

ELSE
beep
? "Error, list not found!"
get $x
ENDIF

misschien dat je er iets aan hebt.

[LordMithril]

niet veel helaas... aangezien je hier writeline gebruikt. die kan ik helaas niet gebruiken omdat ik niet naar een file maar naar een object schrijf.. anders was t me ook wel gelukt denk ik.
_{hmz kixforum is niet wakker denk ik.. is al 5 dagen niet gepost}