Public Function ReplaceTabToSpace(iText)

Mittwoch, 16.7.2014, 18:16 > daMax

Wenn Menschen nach Codezeilen bezahlt werden die Methode Replace nicht kennen, machen sie eben sowas:

Public Function ReplaceTabToSpace(iText)
' Purpose       : To replace tab character to space character.
    ReplaceTabToSpace = Empty
    If IsEmpty(iText) Or Trim(iText) = "" Then Exit Function

    Dim splitTab
    splitTab = Split(iText, vbTab)
    Dim tmpSplit
    Dim newText As String
    newText = ""
    Dim i As Integer
    i = 0
    For i = 0 To UBound(splitTab)
        tmpSplit = splitTab(i)
        If i = 0 Then
            newText = tmpSplit
        Else
            newText = newText & " " & tmpSplit
        End If
    Next
    ReplaceTabToSpace = newText
End Function

Könnte man natürlich auch so machen:

Replace iText, vbTab, " "

aber das wäre zu einfach, ne?

Und natürlich muss für jeden Anwendungsfall eine eigene Methode her:

  RedefineNoteTypeName(iNoteName) As String
  RedefineNoteTypeName_OLD(iNoteName) As String
  RemoveTAB(iString)
  ReplaceTabToSpace(iText)

Hilfäääääääääääääääääääääää m(

| Abgelegt unter Bekloppte, Coding
The views expressed by the author are personal.