cbarber54 0 Posted March 2, 2005 Share Posted March 2, 2005 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) Link to post Share on other sites
SumTingWong 1 Posted March 2, 2005 Share Posted March 2, 2005 $textfile = StringReplace(StringStripCR($acct), @LF, "") & ".txt" Link to post Share on other sites
cbarber54 0 Posted March 2, 2005 Author Share Posted March 2, 2005 That worked great! Thanks for the quick response. I tried StringStripCR but not with StringReplace. Thanks again for you help. Link to post Share on other sites
Recommended Posts
Create an account or sign in to comment
You need to be a member in order to leave a comment
Create an account
Sign up for a new account in our community. It's easy!
Register a new accountSign in
Already have an account? Sign in here.
Sign In Now