VBA - Check if string contain value

[sparda663]

Hi everyone, i have an issue :

I'm using an application which need to check a filename that i store in a string like :

strName = file.Name

For example, the file name is : "Self Assessment Referential - C+ : 55% "

I need to get the C+ in a string (gradeLetter) and 55 in an integer (gradeNumber)

How is it possible?

Thanks.

 

[Joe4]

It is heavily recommended that you avoid use special characters like "+", ":", or "%" in file names. That could present problems.
It is generally recommended that file names only contains letters, numbers, and underscores (it is even recommended that you not use spaces, though those aren't quite as problematic as the other characters).

 

[vaskov17]

If your file format stays the same, try the code below. It assumes the grade letter is always between "-" and ":" and it assumes the grade number is between ":" and "%", also that there are no other "-", ":" and "%" in the file name. Not a good idea to have these characters in a file name but if you do this code should help you.

Sub macro()
    Dim strFile As String
    Dim gradeLetter As String
    Dim gradeNumber As Integer
    
    'insert code to get file name into strFile here
    
    gradeLetter = Replace(Mid(strFile, InStr(1, strFile, "-", vbTextCompare) + 1, InStr(1, strFile, ":", vbTextCompare) - InStr(1, strFile, "-", vbTextCompare) - 1), " ", "")
    gradeNumber = Val(Mid(strFile, InStr(1, strFile, ":", vbTextCompare) + 1, InStr(1, strFile, "%", vbTextCompare) - InStr(1, strFile, ":", vbTextCompare) - 1))
    MsgBox "Grade letter: " & gradeLetter & vbCrLf & "Grade number: " & gradeNumber
End Sub