|
-
Aug 20th, 2001, 11:25 PM
#1
Thread Starter
New Member
problem in input string
hi,
i am reading a file & writing to other file but i found that output file have more characters then input file. my code is as follows, any one test with their file & give me some sugguestion.
Private Sub Command1_Click()
Dim tfile As String
Dim ofile As String
Dim outfile As String
Dim intf As Long
Dim intf1 As Long
intf = FreeFile
tfile = "c:\temp\iii.hex"
intf = FreeFile
Open tfile For Binary Access Read As #intf
outfile = Input(LOF(intf), #intf)
ofile = "c:\temp\177.hex"
intf1 = FreeFile
Open ofile For Output As #intf1
Write #intf1, 1, outfile;
Close #intf1
Close #intf
End
End Sub
thanx
arunpatel
Posting Permissions
- You may not post new threads
- You may not post replies
- You may not post attachments
- You may not edit your posts
-
Forum Rules
|
Click Here to Expand Forum to Full Width
|