Concat Problem

[Kreiss]

Below is code I have but the concat is not working...Does anyone see anything wrong?

Do While Not ts.AtEndOfStream
'replace the comma from textfile b/t dln & dup and replace with no spaces
s1=Replace(ts.ReadLine, ",","")
s2=Left(s1,1)+Right(s2,11)
'send to printer
autECLSession.autECLPS.SendKeys "DLN/"+s2+".PM1."
autECLSession.autECLPS.SendKeys"[Enter]"

Loop

 

[EBGreen]

I would try & instead of + for concatenation.

 

[PHV]

I guess potential problems on highlighted stuff:
Do While Not ts.AtEndOfStream
'replace the comma from textfile b/t dln & dup and replace with no spaces
s1=Replace(ts.ReadLine, ",","")
s2=Left(s1,1)[highlight]+[/highlight]Right(s[highlight]2[/highlight],11)
'send to printer
autECLSession.autECLPS.SendKeys "DLN/"[highlight]+[/highlight]s2[highlight]+[/highlight]".PM1."
autECLSession.autECLPS.SendKeys"[highlight][[/highlight]Enter[highlight]][/highlight]"
Loop

Hope This Help, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884

 

[Kreiss]

Thanks....I was trying to concat the "Right(s2,11)", while it should have been "Right(s1,11)". Thanks again