i try to open a zip file with
open "filename" for input as
#1and then save the file into a variable, but when i try to write the file with
open "filename" for output as
#1write
#1, variable
close
#1the file is rather messy and wont work... can anyone help?
Comments
:
: open "filename" for input as #1
:
: and then save the file into a variable, but when i try to write the file with
:
: open "filename" for output as #1
: write #1, variable
: close #1
:
: the file is rather messy and wont work... can anyone help?
:
[red][b]Do not use Write #1, Variable [/b][/red] because Write is "formated output" - it can do some rubbish with text and numbers .... And Write gives quotation marks on beginnig and end of Variable.. So if you use
Variable = "hello"
then in your file will appears:
"hello"
[green][b]Use Print #1, Variable[/b][/green] instead write... It should be enough... If you're sure that your Variable is filled correctly ;-)
PavlinII
: :
: : open "filename" for input as #1
: :
: : and then save the file into a variable, but when i try to write the file with
: :
: : open "filename" for output as #1
: : write #1, variable
: : close #1
: :
: : the file is rather messy and wont work... can anyone help?
: :
: [red][b]Do not use Write #1, Variable [/b][/red] because Write is "formated output" - it can do some rubbish with text and numbers .... And Write gives quotation marks on beginnig and end of Variable.. So if you use
: Variable = "hello"
: then in your file will appears:
: "hello"
:
: [green][b]Use Print #1, Variable[/b][/green] instead write... It should be enough... If you're sure that your Variable is filled correctly ;-)
:
: PavlinII
:
it still wont work
i use this code:
[code]Dim line
Open "c: est.rar" For Input As #1
Open "c: est2.rar" For Output As #2
While Not EOF(1)
Line Input #1, line
Print #2, line
MsgBox line
Wend
Close #1
Close #2
[/code]
: : :
: : : open "filename" for input as #1
: : :
: : : and then save the file into a variable, but when i try to write the file with
: : :
: : : open "filename" for output as #1
: : : write #1, variable
: : : close #1
: : :
: : : the file is rather messy and wont work... can anyone help?
: : :
: : [red][b]Do not use Write #1, Variable [/b][/red] because Write is "formated output" - it can do some rubbish with text and numbers .... And Write gives quotation marks on beginnig and end of Variable.. So if you use
: : Variable = "hello"
: : then in your file will appears:
: : "hello"
: :
: : [green][b]Use Print #1, Variable[/b][/green] instead write... It should be enough... If you're sure that your Variable is filled correctly ;-)
: :
: : PavlinII
: :
: it still wont work
: i use this code:
: [code]Dim line
:
: Open "c: est.rar" For Input As #1
: Open "c: est2.rar" For Output As #2
: While Not EOF(1)
: Line Input #1, line
: Print #2, line
: MsgBox line
: Wend
: Close #1
: Close #2
: [/code]
:
:-) [gray]I said: "If you're sure that your Variable is filled correctly"[/gray] ;-)
Your code wont work because:
Line Input reads file and it returns string from actual position to LF [gray](Chr(13))[/gray][blue]OR[/blue] LF-CR [gray](Chr(13) & Chr(10))[/gray] and that OR is your problem, because Print writes LF-CR everytime... You you have some CRs additional... And in binary file (like theese archives) isn't combination LF-CR compulsory...
So, use this code:
[code]Dim AllFile As String
Open "E:_TempTest.rar" For Binary As #1
AllFile = Space(FileLen("E:_Temp est.rar"))
Get #1, , AllFile
Close #1
Open "E:_Temp est2.rar" For Binary As #2
Put #2, , AllFile
Close #2[/code]
Hope, it will help ;-)
PavlinII