Tek-Tips is the largest IT community on the Internet today!
Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!
-
Congratulations derfloh on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!
Exel to terminal emulator
- Thread starter fondude
- Start date
You can find some scripts on the samples page of my site that will show you how to use DDE to access a spreadsheet and read data from a specified cell.
aspect@aspectscripting.com
aspect@aspectscripting.com
Volkmaniac
Technical User
Try this:
It takes row-by-row from column A in Excel and types it into ProComm. You have to have Excel open. Create an excel file called TEST.xls and place it in your C:\ drive. Place a lowercase "exit" at the end of your text to tell the script to end. The "waitfor >>" is from Universe but you may have a different prompt.
txflush
pause 1
rxflush
Clear
transmit "^M"
Capture Off
Set Capture File "Current-System.TXT"
Set Capture Overwrite On
set dnldpath "c:\TEST.XLS"
Waitfor ">>"
if ddeinit SystemVar "excel" "system"
ddeexecute SystemVar "[FULL(TRUE)]"
if not ddeinit LinkVar "excel" "sheet1"
errormsg "Couldn't establish DDE link to spreadsheet sheet1"
else
Col=1, Row=1, Passw = " "
while not nullstr Passw
strfmt Pos "R%iC%i" Row Col
dderequest LinkVar Pos Passw
if stricmp Passw "exit`r`n"
exitwhile
else
strreplace Passw "`r`n" ""
Waitquiet 1
Transmit Passw
Transmit "^M"
Waitfor ">>" forever
Row++
endif
endwhile
endif
ddeterminate LinkVar
ddeterminate SystemVar
else
errormsg "Couldn't establish DDE link to Excel!"
halt
endif
endproc
It takes row-by-row from column A in Excel and types it into ProComm. You have to have Excel open. Create an excel file called TEST.xls and place it in your C:\ drive. Place a lowercase "exit" at the end of your text to tell the script to end. The "waitfor >>" is from Universe but you may have a different prompt.
txflush
pause 1
rxflush
Clear
transmit "^M"
Capture Off
Set Capture File "Current-System.TXT"
Set Capture Overwrite On
set dnldpath "c:\TEST.XLS"
Waitfor ">>"
if ddeinit SystemVar "excel" "system"
ddeexecute SystemVar "[FULL(TRUE)]"
if not ddeinit LinkVar "excel" "sheet1"
errormsg "Couldn't establish DDE link to spreadsheet sheet1"
else
Col=1, Row=1, Passw = " "
while not nullstr Passw
strfmt Pos "R%iC%i" Row Col
dderequest LinkVar Pos Passw
if stricmp Passw "exit`r`n"
exitwhile
else
strreplace Passw "`r`n" ""
Waitquiet 1
Transmit Passw
Transmit "^M"
Waitfor ">>" forever
Row++
endif
endwhile
endif
ddeterminate LinkVar
ddeterminate SystemVar
else
errormsg "Couldn't establish DDE link to Excel!"
halt
endif
endproc
- Status