hangman game using spaces

[June7]

RegExp example for initial masking:

Dim re As RegExp
Set re = CreateObject("vbscript.regexp")
re.Pattern = "[a-zA-Z]"
re.Global = True
Debug.Print re.Replace("a'bc-d jh", "_ ")

The added space used for clearer display will complicate replacing with guessed letter. Maybe use some other character such as ? without space.



Replacing mask with selected character. Not seeing a RegExp solution that would be simpler.

Dim strW As String, strM As String, strL As String, x As Integer
strW = "d'bc-d jh"
strM = "?'??-? ??"
strL = "d"
For x = 1 To Len(strW)
    If Mid(strW, x, 1) = strL Then
        strM = Left(strM, x - 1) & strL & Mid(strM, x + 1)
    End If
Next
Debug.Print strM

[Welshgasman]

I was thinking that you could replace the original text with the same character plus a space?
The the answer would be
h u g h f e a r n l e y - w h i t t i n g s t a l l

Then you put a label below the answer control, you could compare each character in each position. If they match put an * or a tick below the character.

So we would then get

h u g h   f e a r n l e y  - w h i t t i n g s t a l  l 
   *        * *           *

if we had keyed in u and e. Those could be entered into another control as e then u ? then if we keyed in i, we would get

h u g h   f e a r n l e y  - w h i t t i n g s t a l  l 
   *        * *           *            *    *

The characters are not lining up despite code blocks?, but you should get the idea. An * would be below a correct character.

Like this https://poki.com/en/g/hangman

[Micron]

Micron, is your code supposed to replace dash with guessed letter?

No, it's supposed to replace first name and last name with "-"; e.g. Mickey with ------ and Dolenz with ------ with a separating space in between first and last. Given that you have revealed a bit about your journey through life I thought you might relate to that name .