Formatear cadenas de texto en VB.Net

   Trabajando mi con mi librería (Manuel's VB.Net Library) me percato de un pequeño pero gran problema: VB.Net no tiene una función muy clara para formatear cadenas de texto, en Visual Basic 6 era muy simple pero aquí no veo las cosas muy claras. Decidí implementar mi propia versión y he integrado la solución a mi librería.
  Como mencionaba, en VB 6 y versiones anteriores era muy simple, solo teníamos que usar la función Format de la siguiente manera:

Format(mystr, "$ ###, ###, ###.##")
La salida era la siguiente (asumiendo que el contenido de la variable mystr era 1000000): $ 1, 000, 000.00

  Así de simple era formatear monedas en VB clásico, pero en .Net no es tan sencillo, así que aquí les dejo una función que hace lo mismo, espero les guste, esta función ya se encuentra integrada a la librería Manuel's VB.Net Library, aunque no se ha lanzado al público me la pueden solicitar si lo desean, espero pronto la pueda liberar:

Actualización:     Esta función experimentaba un error al formatear fechas, se han hechos las correcciones necesarias y ya trabaja correctamente.

---

Public Function FormatingString(stream As Object, mask As String) As String
    
      Dim finalstr As String, tmp As String, first As Long, second As Long, str1 As String, str2 As String
      Dim intstr As Integer, dblstr As Double, datestr As Date, strstr As String, length_ As Long
    
      Try
        
          If stream.IsNullOrEmpty(stream) = True Then
        
            Return ""
            Exit Function
        
        End If
    
      Catch exp As Exception
      End Try
    
      Try
        
          If mask.IsNullOrEmpty(mask) = True Then
        
            Return ""
            Exit Function
        
        End If
    
      Catch exp As Exception
      End Try
    
      Try
        
          If IsNumeric(stream) = True Then
            
              If stream.ToString().IndexOf(".") >= 0 Then
                
                  dblstr = stream.ToString().Trim
                  finalstr = dblstr.ToString(mask)
                
              Else
                
                  intstr = stream.ToString().Trim
                  finalstr = intstr.ToString(mask)
                
              End If
            
          ElseIf IsDate(stream) = True Then
            
              datestr = CDate(stream.ToString().Trim)
              finalstr = datestr.ToString(mask)
            
          Else
            
              strstr = stream.ToString
              finalstr = strstr
            
          End If
        
      Catch exp As Exception
          finalstr = stream
      End Try
    
      '##### PATCH INCORRECT DATE VALUE #####

      For i=1 To 10
        
          If finalstr.IsNullOrEmpty(finalstr) = False Then
            
              If finalstr.Trim().IndexOf("/00") >= 0 Or finalstr.Trim().StartsWith("00/") = True Then

                  tmp = stream.Trim

                  If finalstr.Trim().EndsWith("/00") = True Then
                    
                      first = 0
                      second = finalstr.Trim().IndexOf("/00")
                      length_ = finalstr.Trim().Length - (second + 1)
                    
                      finalstr = finalstr.Trim().Substring(first, second).Trim + "/" + tmp.Trim().Substring(tmp.Trim().Length - length_, length_).Trim
                    
                  ElseIf finalstr.Trim().IndexOf("/00/") >= 0 Then
                    
                      first = finalstr.Trim().IndexOf("/00/")
                      second = finalstr.Trim().Length - first
                    
                      str1 = finalstr.Trim().Substring(0, first).Trim
                    str2 = finalstr.Trim().Substring(second, finalstr.Trim().Length - second).Trim
                    finalstr = str1.Trim + "/" + tmp.Trim().Substring(first + 1, 2).Trim + "/" + str2.Trim
                
                  ElseIf finalstr.Trim().StartsWith("00/") = True Then
                      finalstr = tmp.Trim().Substring(0, 2).Trim + finalstr.Trim().Substring(2, finalstr.Trim().Length - 2).Trim
                  End If
                
              Else
                  Exit For
              End If
            
          End If
        
      Next
    
      '##### PATCH INCORRECT DATE VALUE #####
    
      Return finalstr
    
  End Function

¿Te gustó este post?, entonces si lo deseas puedes apoyarnos para continuar con nuestra labor, gracias.

---