Fjerne tegn fra streng

res_uden=replace(res_med, ".", "")

Ja eller


Option Explicit

Private Sub Form_Load()
  Me.Caption = TrimChr("C4.5.H7")
End Sub

Public Function TrimChr(ByVal strText As String) As String
Dim i As Integer
Dim strOne As String
Dim strOut As String
  For i = 1 To Len(strText)
    strOne = Mid$(strText, i, 1)
    Select Case strOne
          Case "." '<- her
          Case Else
            strOut = strOut & strOne
    End Select
  Next i
TrimChr = strOut
End Function

sjh: Det mener du forhåbentlig ikke?

Jo.. hvis man bruger vb4/5 har man ikke replace()

og så kan man fjerne flere på en gang ved at tilføje:

    Select Case strOne
          Case ".", ",", ":", "-" '<- o.s.v...
          Case Else
            strOut = strOut & strOne
    End Select

zaydn >>
Hvis du bruger VB6, så brug blot
  res_uden=replace(res_med, ".", "")
:o)