file name verification problems

[ebma1]

Hi,

I hope someone can help me Please!

Here's what i want to do - from my VB appln when a user selects a file from the file browser in the vb appln, it takes the filename which should be in the format : -
(4 digits-2digits-1or2digits-alphabet) e.g. 1111-20-1-a.dwg

It then checks whether the filename is in the correct format

If not it does this(...) else

it takes the filename and puts it in a textbox BUT WITHOUT THE file extension (e.g. 1111-20-1-a gets entered into text box)

areas in which I am having a problem is basically
1) performing the check on the filename and
2) which is related to the first one is getting the filename into a textbox without the file extension.

Any help would be much appreciated

Regards
Eb

[manavo11]

2

Temp = Mid(filename, InStrRev(filename, "\") + 1)
 Temp = Mid(Temp, 1, Len(Temp) - 4)

[manavo11]

1) You can use the Mid() function to check each letter of what you get in my post above and check with the IsNumeric() or the ascii values if it is a number or not. You'll have to use the ascii to check if it is a "-".

[manavo11]

Here is a simple example. You'll still need to check i if the "-" are in the right positions.

Option Explicit
Dim Filename As String
Dim Temp As String
Dim i As Integer
 
Private Sub Form_Load()
 Filename = InputBox("Enter filename", "Enter filename")
 Temp = Mid(Filename, InStrRev(Filename, "\") + 1)
 Temp = Mid(Temp, 1, Len(Temp) - 4)
 For i = 1 To Len(Temp)
  If IsNumeric(Mid(Temp, i, 1)) = False And Asc(Mid(Temp, i, 1)) <> 45 Then
   MsgBox "Invalid filename"
   Exit Sub
  End If
 Next
End Sub

[ebma1]

with your example : -
Temp = Mid(Filename, InStrRev(Filename, "\") + 1)
Temp = Mid(Temp, 1, Len(Temp) - 4)

will that only chck the first 4 values of the filename
Then if that succeeds I have to check "-" then the next 2 digits

and so on ????

[manavo11]

Originally posted by ebma1
with your example : -
Temp = Mid(Filename, InStrRev(Filename, "\") + 1)
Temp = Mid(Temp, 1, Len(Temp) - 4)

will that only chck the first 4 values of the filename
Then if that succeeds I have to check "-" then the next 2 digits

and so on ????

No, the code above will get you the filename without the extention (specifically if it is 3 digits long but you could do it independant from that).

[ebma1]

Ok that works BUT how do i check for AlphaNumeric values

The way I have done it is : -

If (Mid(Temp, 6, 2)) Like "[A-Z]" = False And IsNumeric(Mid(Temp, 6, 2)) = False Then
MsgBox "Invalid filename - error in SFB number"
Exit Sub
End If

Is there a function that checks whether the value is a integer or a letter???

PS: I am using VB6 SP5 because I think VB.NET has function called IsAlphaNumeric but VB6 doesn't

[manavo11]

You need to check the ascii values :

A=65
B=66
.
.
.
Z=90

a=97
b=98
.
.
.
z=122

Check if it is smaller or bigger these values...

[ebma1]

Thank you very much for your help
-I have sorted it out now!!!!

[manavo11]

Anytime