Foro de elhacker.net

Private Sub Command1_Click()
    Dim Archivo As String, TODO As String, Busca As String
    
    Dim NumArchivo As Integer
    
    Archivo = "C:\archivo.txt"
    NumArchivo = FreeFile()
    
    Open Archivo For Input As #NumArchivo
        TODO = input(LOF(1), 1)
        
        busca = InStr(1, TODO, ",", vbTextCompare)
            
        If busca > 0 Then
            MsgBox "Encontrado"
        End If
    Close #NumArchivo
    
    Text1.Text = TODO
End Sub

Private Sub Command1_Click()
Dim original, busca, reemplaza, nueva As String
Dim long_original, long_busca, lugar_reemplaza As Integer
Dim Cont As Integer
For Cont = 1 To Len(txtTexto.Text)
    original = Trim(txtTexto.Text)
    busca = ","
    reemplaza = ""
    long_original = Len(original)
    long_busca = Len(busca)
    lugar_reemplaza = InStr(original, busca)
    If lugar_reemplaza = 0 Then
        txtTexto = nueva
        Exit Sub
    End If
    nueva = Mid(original, 1, lugar_reemplaza - 1) & reemplaza

    nueva = nueva & Mid(original, lugar_reemplaza + long_busca, long_original)
    txtTexto = nueva
Next Cont
End Sub

Private Sub Command1_Click()

    Dim Archivo As String, Busca As String, TODO As String
    Dim NumArchivo As Integer, x As Long
   
    Archivo = "C:\archivo.txt"
    NumArchivo = FreeFile()
   
  Open Archivo For Input As #NumArchivo
    TODO = Input(LOF(1), 1)
       
    For x = 1 To Len(TODO)
        If Mid(TODO, x, 1) = "," Then TODO = Mid(TODO, 1, x - 1) & Mid(TODO, x + 1, Len(TODO) - x1)
    Next x
       
  Close #NumArchivo
    
  Open Archivo For Output As #NumArchivo
    Print #NumArchivo, TODO
  Close #NumArchivo
    
    Text1 = TODO
    
End Sub

Todo = Replace(Todo, ",", "")