Anonymous user
Run-length encoding: Difference between revisions
→{{header|VBA}}
m (→{{header|VBA}}) |
|||
Line 4,323:
Private Function length_encoding(S As String) As String
Dim F As String, r As String, a As String, n As Long, c As Long, k As Long
r = Left(S, 1)
c = 1
| |||