Create a data file from InputBox input

[mr-es335]

Following is what I have thus far...

;-----------------------------------------------
Func _CreateShowFile($ListView)
    Local $DstFilePath = "E:\Master_Backup\Shows"
    Global $ShowName = InputBox("Notice!", "Please enter the SHOW name...")
    ; From the input data, create a new file consisting of the input text with a file extension of .shw
EndFunc   ;==>_CreateShowFile
;-----------------------------------------------

 

[Andreik]

It is literally one line of code. Read about FileWrite() in help file.

[mr-es335]

Andriek,

Thanks for the follow-up..appreciated!

I did have a look at this! However, it would appear that, as the context reads, "Write text/data to the end of a previously opened file."

I simply want to create new data file based on the input from the "InputBox", with file extension of .shw.

Edited May 16, 2024 by mr-es335

[Melba23]

mr-es335,

So, as shown in the example for FileWrite, use FileOpen to open a file before wrtiting to it. And do not forget to FileClose it after you have written the data.

M23

[Andreik]

Func _CreateShowFile($ListView)
    Local $DstFilePath = "E:\Master_Backup\Shows"
    Global $ShowName = InputBox("Notice!", "Please enter the SHOW name...")
    ; From the input data, create a new file consisting of the input text with a file extension of .shw
    Local $hFile = FileOpen($ShowName & '.shw', 2)  ; $FO_OVERWRITE = 2
    FileWrite($hFile, "some data")
    FileClose($hFile)
EndFunc   ;==>_CreateShowFile

 

[mr-es335]

Andriek,

To begin with, Andriek...."You da' man!" Thank you so very, very much for your continued assistance! Appreciated.

I have decided to go with the following...What do you think?

Func _CreateShowFile($ListView)
    Local $DestinationSaveDir = 'E:\Master_Backup\Shows'
    Local $sSave = FileSaveDialog('Enter SHOW Filename', $DestinationSaveDir, 'SHOW FIle (*.shw)', 18)
    If @error Then Return SetError(1, 0, Null)
    If StringRight($sSave, 4) <> '.shw' Then $sSave &= '.shw'
    Local $hFile = FileOpen($sSave, 2) ; FO_OVERWRITE
    Local $iCount = _GUICtrlListView_GetItemCount($ListView)
    For $Index = 0 To $iCount - 1
    FileWriteLine($hFile, _GUICtrlListView_GetItemText($ListView, $Index))
    Next
    FileClose($hFile)
EndFunc   ;==>_CreateShowFile

Seems to do the trick...

[mr-es335]

17 hours ago, Andreik said:

Func _CreateShowFile($ListView)
    Local $DstFilePath = "E:\Master_Backup\Shows"
    Global $ShowName = InputBox("Notice!", "Please enter the SHOW name...")
    ; From the input data, create a new file consisting of the input text with a file extension of .shw
    Local $hFile = FileOpen($ShowName & '.shw', 2)  ; $FO_OVERWRITE = 2
    FileWrite($hFile, "some data")
    FileClose($hFile)
EndFunc   ;==>_CreateShowFile

 

Just for interest, the above does not appear to work. No .shw data file is created in $DstFilePath.

Lastly, I meant to say, "From the input data, create a new file employing the input text as the filename with a file extension of .shw."
• The data file is being employed merely a "placeholder"