2 simple questions, please help!

[hooya81]

hi, not been programming for long and could do with a little help.

EncryptFile(Text1.Text, Text1.Text & ".fxt")

the first text1.text is the input file and the 2nd is the output file, so C:\example.txt gets encrypted and then saved as C:\example.txt.fxt that part works fine however its when i want to decrypt!

DecryptFile(text1.text, text1.text)

again the first text1.text is input the second output, what i want to know is how do i now remove that ".fxt" i added earlier.

assuming its something like

DecryptFile (text1.text, text1.text - ".fxt")

please help!

The second thing wos i want to detect a file extension.

an example would be once i open the file path to a text box using commondialog i want to be able to detect the extension of that file so i can display something in a label caption. eg

if text2.text = "*.fxt" then
label1.caption = "Encryption method used etc etc"

i know the above isn't how you do it, but hopefully someone can tell me how!

sorry i know these are dumb questions, still learning.

thanx in advance

[Shaggy Hiker]

If you can always be sure that the file extension is there, then it will always be the right 4 characters: The "." and the three characters of the extension. That would be easy:

If st1 is the file name, then

st2 = Right(st1,4)

would give you the last four characters.

Alternatively, you can search for the "." character, using InStr(), but this has the potential problem that there can be more than one period in file names these days. Therefore, you would need to look back from the end of the string, though once you either find a period, or have searched back four characters, you would know whether or not the extension exists.

[hooya81]

thanx alot 'Shaggy Hiker' tried what you said and it worked perfectly!, You the man.

if someone else could just help me with the first problem i'll be sorted!

thanx again really appreciate that, cheers

[Armbruster]

'Assuming there is only one period in the filename
    ' contained in text1.text . . .
    
    Dim strFileName As String
    'create array to hold parsed filename
    Dim strFile() As String
    
    'parse the filename by the period
    strFile = Split(Text1.Text, ".")
    
    'set the filename to the first element of the array
    strFileName = strFile(0)
    
    DecryptFile Text1.Text, strFileName

[Mars-Martian]

Hmmm armbuster that's not that good 'cause if the extension if something other then *.txt.fxt then he has to figure that out..
The best way (In my opinion) is..
[Highlight=VB]
St1 = Left(St2, 0, Len(St2) - 4)

[Armbruster]

Originally posted by Mars-Martian
Hmmm armbuster that's not that good 'cause if the extension if something other then *.txt.fxt then he has to figure that out..
The best way (In my opinion) is..

St1 = Left(St2, 0, Len(St2) - 4)

In my example I DID say . . .

'Assuming there is only one period in the filename
' contained in text1.text . . .

My code code be easily modified to remove the extension, no matter how many periods are in the filename.

Dim strFileName As String
    Dim intUbound As Integer
    Dim i As Integer
    
    'create array to hold parsed filename
    Dim strFile() As String
    
    'parse the filename by the period
    strFile = Split(Text1.Text, ".")
    
    'find the upper bound of the arrary
    intUbound = UBound(strFile)
    
    'add the array back together but do
    '  not add the file extension '
    '   (last element of the array)
    For i = 0 To intUbound - 2
        If i = 0 Then
            strFileName = strFile(i)
        Else
            'add any period(s) contained in the filename back in
            strFileName = strFileName & "." & strFile(i)
        End If
    Next i
        
    DecryptFile Text1.Text, strFileName

Technically, your code is also not good.

1) It assumes a three-digit file extension. What about .html??? That is a four-digit extension, your code would not work.

2) You used left function instead of left$ function so vb has to convert the variable twice

3) the left function takes two arguments, not three - your code would never work

Sorry, I don't mean to come off as an a$$, but it kinda rubbed me wrong when the first thing I read was . . .

armbuster that's not that good

[hooya81]

Thanx alot 'Armbruster' and 'Mars Martian'

Got it working great thanx to you 2!

Can't thank you's enough.

Cheers!

[Teddo]

Hi,

I'm glad your thread is solved, but could you PLEASE add something like 'solved' in the title of this thread?


Thanks,

Teddo and a lot of other thankful users