Convert .CAP files to .Txt Files 
May 27th, 2007, 01:05 AM
| | | Convert .CAP files to .Txt Files
Anyone knows how to convert .CAP files to .TXT files ?
because Access doesn't read .CAP files, so in order to import it, i'd
have to manually open all the .CAP files and "save as" filename.txt
before importing them onto Access.
is there a way to automate this process?
Thanks, | 
May 27th, 2007, 12:15 PM
| | | Re: Convert .CAP files to .Txt Files
Alice <aliceytam@gmail.comwrote in
news:1180227694.202894.263870@i38g2000prf.googlegr oups.com: Quote:
Anyone knows how to convert .CAP files to .TXT files ?
>
because Access doesn't read .CAP files, so in order to import
it, i'd have to manually open all the .CAP files and "save as"
filename.txt before importing them onto Access.
>
is there a way to automate this process?
>
Thanks,
>
| Public Sub CAP2TXT(stDirectory as string)
dim stCAPfile as string
dim stTXTfile as string
If right(stDirectory,1) <>"\" then
stDirectory = stDirectory & "\"
End If
stCAPfile = Dir(stDirectory + "*.CAP")
Do until stCAPfile = ""
stTXTfile = left(stCAPfile,len(stcapfile - 3) & "TXT"
filename stDirectory & stCAPfile, stDirectory & stTXTfile
stCAPfile = Dir()
LOOP
end sub
--
Bob Quintal
PA is y I've altered my email address.
--
Posted via a free Usenet account from http://www.teranews.com | 
May 27th, 2007, 08:35 PM
| | | Re: Convert .CAP files to .Txt Files
On May 27, 4:20 am, Bob Quintal <rquin...@sPAmpatico.cawrote: Quote:
Alice <alicey...@gmail.comwrote innews:1180227694.202894.263870@i38g2000prf.google groups.com:
> Quote: |
Anyone knows how to convert .CAP files to .TXT files ?
| > Quote:
because Access doesn't read .CAP files, so in order to import
it, i'd have to manually open all the .CAP files and "save as"
filename.txt before importing them onto Access.
| > Quote: |
is there a way to automate this process?
| >>
Public Sub CAP2TXT(stDirectory as string)
dim stCAPfile as string
dim stTXTfile as string
>
If right(stDirectory,1) <>"\" then
stDirectory = stDirectory & "\"
End If
>
stCAPfile = Dir(stDirectory + "*.CAP")
>
Do until stCAPfile = ""
stTXTfile = left(stCAPfile,len(stcapfile - 3) & "TXT"
filename stDirectory & stCAPfile, stDirectory & stTXTfile
stCAPfile = Dir()
LOOP
end sub
>
--
Bob Quintal
>
PA is y I've altered my email address.
>
--
Posted via a free Usenet account fromhttp://www.teranews.com
| hmm...i just got the code to run, but the files are still in CAP
file.
The problem is, when i change the CAP file manually, i've to open up
the file and do SAVE AS to *.txt. If i were to just change the file
name w/o opening it, it'll remains as CAP file.
Is there any way to get around that?
Thanks, | 
May 27th, 2007, 08:35 PM
| | | Re: Convert .CAP files to .Txt Files
On May 27, 4:20 am, Bob Quintal <rquin...@sPAmpatico.cawrote: Quote:
Alice <alicey...@gmail.comwrote innews:1180227694.202894.263870@i38g2000prf.google groups.com:
> Quote: |
Anyone knows how to convert .CAP files to .TXT files ?
| > Quote:
because Access doesn't read .CAP files, so in order to import
it, i'd have to manually open all the .CAP files and "save as"
filename.txt before importing them onto Access.
| > Quote: |
is there a way to automate this process?
| >>
Public Sub CAP2TXT(stDirectory as string)
dim stCAPfile as string
dim stTXTfile as string
>
If right(stDirectory,1) <>"\" then
stDirectory = stDirectory & "\"
End If
>
stCAPfile = Dir(stDirectory + "*.CAP")
>
Do until stCAPfile = ""
stTXTfile = left(stCAPfile,len(stcapfile - 3) & "TXT"
filename stDirectory & stCAPfile, stDirectory & stTXTfile
stCAPfile = Dir()
LOOP
end sub
>
--
Bob Quintal
>
PA is y I've altered my email address.
>
--
Posted via a free Usenet account fromhttp://www.teranews.com
|
hmm...i just got the code to run, but the files are still in CAP
file.
The problem is, when i change the CAP file manually, i've to open up
the file and do SAVE AS to *.txt. If i were to just change the file
name w/o opening it, it'll remains as CAP file.
Is there any way to get around that?
Thanks, | 
May 27th, 2007, 08:55 PM
| | | Re: Convert .CAP files to .Txt Files
On May 27, 1:27 pm, Alice <alicey...@gmail.comwrote: Quote:
On May 27, 4:20 am, Bob Quintal <rquin...@sPAmpatico.cawrote:
>
>
>
>
> Quote: |
Alice <alicey...@gmail.comwrote innews:1180227694.202894.263870@i38g2000prf.google groups.com:
| > Quote: Quote: |
Anyone knows how to convert .CAP files to .TXT files ?
| | > Quote: Quote:
because Access doesn't read .CAP files, so in order to import
it, i'd have to manually open all the .CAP files and "save as"
filename.txt before importing them onto Access.
| | > Quote: Quote: |
is there a way to automate this process?
| | >> Quote:
Public Sub CAP2TXT(stDirectory as string)
dim stCAPfile as string
dim stTXTfile as string
| > Quote:
If right(stDirectory,1) <>"\" then
stDirectory = stDirectory & "\"
End If
| > Quote: |
stCAPfile = Dir(stDirectory + "*.CAP")
| > Quote:
Do until stCAPfile = ""
stTXTfile = left(stCAPfile,len(stcapfile - 3) & "TXT"
filename stDirectory & stCAPfile, stDirectory & stTXTfile
stCAPfile = Dir()
LOOP
end sub
| >> Quote: |
PA is y I've altered my email address.
| > Quote:
--
Posted via a free Usenet account fromhttp://www.teranews.com
| >
hmm...i just got the code to run, but the files are still in CAP
file.
The problem is, when i change the CAP file manually, i've to open up
the file and do SAVE AS to *.txt. If i were to just change the file
name w/o opening it, it'll remains as CAP file.
>
Is there any way to get around that?
>
Thanks,- Hide quoted text -
>
- Show quoted text -
| Never mind. All done!!! it works. :O) Thanks so much!!!! | | Thread Tools | Search this Thread | | | |
Posting Rules
| You may not post new threads You may not post replies You may not post attachments You may not edit your posts HTML code is Off | | | | | | What is Bytes?
We are a network of experts and professionals in IT and software development that help one another with answers to tough questions and share insights.
Get the best answers to your questions from over 220,662 network members.
|