APPEND STRING

[cbarber54 0]

Hi Guys,

I am having problems with: $textfile = ($acct&".txt") in the sample script below.

It is returning $acct on one line an the ".txt" on a separate line.

I am attempting to create a txt file name such as v180.txt to use in SEND command.

Thanks for your help.

#include <GUIConstants.au3>

; Declare variable for the file path to be entered into Meditech

$filepath = "C:\Documents and Settings\My Documents" ; Must Change

$ext=".txt"

; Location of the file for input

$writetofile = "c:\cpd.txt"

$read = FileOpen($writetofile, 2)

; Check if file opened for writing OK

If $read = -1 Then

MsgBox(0, "Error", "Unable to open file.")

Exit

EndIf

; Create and send to screen the Window for input

GUICreate("ECHOCARDIOGRAPHY", 320, 120, @DesktopWidth / 2 - 160, @DesktopHeight / 2 - 45, -1, 0x00000018); WS_EX_ACCEPTFILES

GUICtrlCreateLabel("V NUMBER ", 10, 10)

$Input_1 = GUICtrlCreateInput("", 100, 10, 150, 20, $ES_UPPERCASE)

GUICtrlSetState(-1, $GUI_FOCUS)

GUICtrlCreateLabel("PROVIDER ", 10, 40)

$Input_2 = GUICtrlCreateInput("", 100, 40, 150, 20, $ES_UPPERCASE)

$ok = GUICtrlCreateButton("OK", 90, 90, 70, 20)

$cancel = GUICtrlCreateButton("CANCEL", 190, 90, 70, 20)

GUISetState()

; Read the screen input and write to file.

While 1

$msg = GUIGetMsg()

Select

Case $msg = $GUI_Event_Close

Exit

Case $msg = $cancel

Exit

Case $msg = $ok

$contents1 = (GUICtrlRead($Input_1))

$contents2 = (GUICtrlRead($Input_2))

FileWriteLine($writetofile, $contents1)

FileWriteLine($writetofile, $contents2)

FileClose($writetofile)

ExitLoop

;;;

EndSelect

WEnd

GUIDelete(); ; will return 1

; open file for reading

$readfile = "c:\cpd.txt"

$output = FileOpen($readfile, 0)

; Check if file opened for writing OK

If $output = -1 Then

MsgBox(0, "Error", "Unable to open file.")

Exit

EndIf

; file that include the subroutine to read to array

#include <file.au3>

;Read in lines of text into array until the EOF is reached

Dim $aRecords

If Not _FileReadToArray("c:\cpd.txt", $aRecords) Then

MsgBox(4096, "Error", " Error reading log to Array error:" & @error)

Exit

EndIf

For $x = 1 To $aRecords[0]

$acct = $aRecords[1]

$provider = $aRecords[2]

Next

; Close file

FileClose($readfile)

$textfile = ($acct&".txt")

MsgBox(0, "Error", $textfile)

[SumTingWong 1]

$textfile = StringReplace(StringStripCR($acct), @LF, "") & ".txt"

[cbarber54 0]

That worked great!

Thanks for the quick response.

I tried StringStripCR but not with StringReplace.

Thanks again for you help.