open multiple files

[MerkurAlex]

mmmmmkkkk i have a program that shows fileopendialog with options of 4 now it will open the file and write the contents to a new one but im not sure how todo this with multiple files the write part anyway

[enaiman]

Code??

[MerkurAlex]

Code??

#notrayicon
$top=fileopendialog("",@scriptdir,"default(*.*)",4)
if @error then 
    msgbox("","","You did not select a file to open")
    Exit
EndIf
$sop=fileopendialog("UAM converter - file to save convert to",@scriptdir,"default(*.*)",4)
if @error then
    msgbox("","","You did not select a file to save to")
    Exit
EndIf

if fileexists($sop) then filedelete($sop)
$read=fileread($top)
$opfl=fileopen($sop,1)
filewrite($opfl,$read)
fileclose($opfl)

[MrCreatoR]

You will have to deal with it using array...

#notrayicon
$top=fileopendialog("",@scriptdir,"default(*.*)",4)
if @error then 
    msgbox("","","You did not select a file to open")
    Exit
EndIf
$sop=fileopendialog("UAM converter - file to save convert to",@scriptdir,"default(*.*)",4)
if @error then
    msgbox("","","You did not select a file to save to")
    Exit
EndIf

$read=FileRead($top)

If StringInStr($sop, "|") Then
    $FilesArr = StringSplit($sop, "|")
Else
    Dim $FilesArr[3] = [2, @WorkingDir, $sop]
EndIf

For $i = 2 To UBound($FilesArr)-1
    $opfl = FileOpen($FilesArr[1] & "\" & $FilesArr[$i], 2)
    FileWrite($opfl, $read)
    FileClose($opfl)
Next

[enaiman]

Couple of questions:

OK - I see that you want to open many files ... for reading ...

Do you want to write all those files into a single file? or do you want to to write each file to a different one?

If you want the files to be written each in a separate file - do you have something like a rule? like you open file1, file2 and file3 and you want them written into file_converted1, file_converted2 and file_converted3 ? or you want them written in the order returned by FileOpenDialog?

because FileOpenDialog

Return Value

Success: Returns the full path of the file(s) chosen. Results for multiple selections are "Directory|file1|file2|..."

so ... to get the filenames you will need to split the string returned using "|" and to recompose the results.

[MerkurAlex]

You will have to deal with it using array...

#notrayicon
$top=fileopendialog("",@scriptdir,"default(*.*)",4)
if @error then 
    msgbox("","","You did not select a file to open")
    Exit
EndIf
$sop=fileopendialog("UAM converter - file to save convert to",@scriptdir,"default(*.*)",4)
if @error then
    msgbox("","","You did not select a file to save to")
    Exit
EndIf

$read=FileRead($top)

If StringInStr($sop, "|") Then
    $FilesArr = StringSplit($sop, "|")
Else
    Dim $FilesArr[3] = [2, @WorkingDir, $sop]
EndIf

For $i = 2 To UBound($FilesArr)-1
    $opfl = FileOpen($FilesArr[1] & "\" & $FilesArr[$i], 2)
    FileWrite($opfl, $read)
    FileClose($opfl)
Next

ok this is gonna work but in the $sop and $top are opened its limited the text in the area anyway how can i delimit it?

[enaiman]

For $i = 2 To UBound($FilesArr)-1
    $opfl = FileOpen($FilesArr[1] & "\" & $FilesArr[$i], 2)
    FileWrite($opfl, $read)
    FileWriteLine($opfl, "------- End of "&$i&" file --------")
    FileWriteLine($opfl, "")
    FileClose($opfl)
Next

this will add a line "------- End of "&$i&" file --------" and a newline at the end of each file written.

[MerkurAlex]

For $i = 2 To UBound($FilesArr)-1
    $opfl = FileOpen($FilesArr[1] & "\" & $FilesArr[$i], 2)
    FileWrite($opfl, $read)
    FileWriteLine($opfl, "------- End of "&$i&" file --------")
    FileWriteLine($opfl, "")
    FileClose($opfl)
Next

this will add a line "------- End of "&$i&" file --------" and a newline at the end of each file written.

mscreators script will work i dont need that i just need to delimit text on the fileopendialogs

[enaiman]

i just need to delimit text on the fileopendialogs

Sorry but I cannot figure what do you mean ....

[MerkurAlex]

Sorry but I cannot figure what do you mean ....

When it opens my Fileopendialog() function the text area you put the file paths has a character limit i need to raise that

[enaiman]

When it opens my Fileopendialog() function the text area you put the file paths has a character limit i need to raise that

I'm affraid you cannot do that since it is "nailed".

You can select as many files as you wish ... do you need to see all the names? - try clicking in the box and use the left/right arrow key to scroll the text and you will see all selected file names.

What if you select like 50 files and the whole string returned by FileOpenDialog is like 300 characters long ... where that would fit? how big that input box need to be?