W_o_r_d

Ok how would i achieve this. I have a current method but its very long.

Code:

---

Public Sub Fourletters

str = Mid(Word, 1) & "_" & Mid(Word, 2) & "_" & Mid(Word, 3)& "_" & Mid(Word, 4)

list1.additem str

---

so i have this 16 times for each length of word. Then i have to do

Code:

---

If Len(Word) = 2 Then Call TwoLetters
If Len(Word) = 3 Then Call ThreeLetters

---

im sure there is a quicker method.

Thanks in advance.

that's not that long, if you want you can break it up liek this:

Code:

---

Public Sub Fourletters

str = Mid(Word, 1) & _
"_" & Mid(Word, 2) & _
"_" & Mid(Word, 3) & _
"_" & Mid(Word, 4)

list1.additem str

---

dim newstring as string

for x = 1 to len(oldstring)
newstring = newstring & mid(oldstring,x,1) & " "
next x

VB Code:

Private Function Splitword(strWord As String) As String
For x = 1 To Len(strWord)
    If x = Len(strWord) Then
        Splitword = Splitword & Mid(strWord, x, 1)
    Else
        Splitword = Splitword & Mid(strWord, x, 1) & "_"
    End If
Next
 
End Function
Private Sub Form_Load()
List1.AddItem Splitword("TESTING")
 
End Sub

This seems to work:

VB Code:

str = Left$(Word, 1)
For I = 2 To Len(Word)
  str = str & "_" & Mid$(Word, I, 1)
Next

How about this:

VB Code:

Private Sub Command1_Click()
    MsgBox AddUnderscore("Word")
End Sub
 
Private Function AddUnderscore(strWord As String) As String
Dim strTemp As String
Dim a As Long
 
    For a = 1 To Len(strWord)
        strTemp = strTemp & Mid(strWord, a, 1) & "_"
    Next a
    
    AddUnderscore = Left(strTemp, Len(strTemp) - 1)
End Function

It would seem that 2:07 PM was a very popular time for this post. Good job by all! :thumb:

ROFL! funny thing is..
none of the suggestions are the same!
everyone had a slightly diff way to do it! ;)

(mine's the best of course... ;) ) j/k!

The smallest code for this you could ever get for this:

VB Code:

Private Sub Command1_Click()
    Dim s As String
    s = "Word"
    sformat = "@-@-@-@-@-@-@-@-@-@-@-@-@-@-@-@-@-@-@-@-@-@-@-@-@-@-@-@-@-@-@-@-@-@-@-@-@-@-@-@-@-@-@"
    MsgBox Format(s, Left(sformat, 2 * Len(s) - 1))
End Sub

Pradeep :)

Quote:

---

Originally Posted by [A51g]Static

ROFL! funny thing is..
none of the suggestions are the same!
everyone had a slightly diff way to do it! ;)

(mine's the best of course... ;) ) j/k!

---

And another way :D:

VB Code:

Option Explicit
 
Private Sub Form_Load()
    Dim Str As String
    Str = "Word"
    
    Debug.Print Left(Replace(StrConv(Str, vbUnicode), Chr(0), "-"), Len(Str) * 2 - 1)
End Sub

very nice!!
(beats mine lol)