Click here to Skip to main content
Rate this: bad
good
Please Sign up or sign in to vote.
See more: VB6 VB.NET
I have some pcl documents with information embeded in the first couple of lines. These need to be removed bfore converting the pcl document to a tiff document to be imaged.
 
In vb6 I used:
 
Put #outFile, , Replace(StrConv(InputB(LOF(fileNum), fileNum), vbUnicode), sString, "", 1, 1, vbBinaryCompare)
 
I am opening the file binary converting to a string and replacing the string, basically deltting the string and saving it to a new file. I have tried to code this in vb.net, but have not been able to make it work.
Posted 25-May-12 8:33am
Edited 25-May-12 8:36am
v2
Comments
SAKryukov at 25-May-12 14:44pm
   
Who do you think MSDN help is written for?
--SA
losmac at 29-May-12 13:03pm
   
Good question!

1 solution

Rate this: bad
good
Please Sign up or sign in to vote.

Solution 1

I found a way to accomplish what I needed.
 
FileOpen(5, "C:\Temp\TempImg.pcl", OpenMode.Output)
Do Until EOF(fileNum)
    sString1 = LineInput(fileNum)
    position = InStr(sString1, "INDEXX:")
    If position > 0 Then
        sString = sString1
        sString1 = ""
    End If
    Print(5, sString1 & vbCrLf)
Loop
FileClose(5)
FileClose(fileNum)
 
imageFile = My.Computer.FileSystem.ReadAllBytes"C:\Temp\TempImg.pcl")
My.Computer.FileSystem.WriteAllBytes(TempDir + sFileName, imageFile, False)
  Permalink  
v2
Comments
Kenneth Haugland at 16-Jul-12 12:20pm
   
This looks a lot like VB6 if im not mistaken?

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

  Print Answers RSS
0 Kornfeld Eliyahu Peter 169
1 George Jonsson 145
2 Zoltán Zörgő 139
3 PIEBALDconsult 130
4 OriginalGriff 120
0 OriginalGriff 6,165
1 DamithSL 4,658
2 Maciej Los 4,107
3 Kornfeld Eliyahu Peter 3,649
4 Sergey Alexandrovich Kryukov 3,382


Advertise | Privacy | Mobile
Web02 | 2.8.141220.1 | Last Updated 29 May 2012
Copyright © CodeProject, 1999-2014
All Rights Reserved. Terms of Service
Layout: fixed | fluid

CodeProject, 503-250 Ferrand Drive Toronto Ontario, M3C 3G8 Canada +1 416-849-8900 x 100