RE:Codigo completo (carga, remplazo y guardado)
Que tal Eduardo
Que bien quie te funcionara ya.
Bueno con respecto a tu primera inquietud ya esta cuadrado el codigo para remplazar, le hize unos pequeños cambios para que funcionen sin importa que texto buscas puedes buscar por ejemplo 5,12,1000 o cualquier otra cosa y te lo remplaza por lo que tu quieras.
Lo unico que tienes que cambiar es lo que quieres buscar y por lo que vas a remplazar esos valores estan almacenados en las variables TextoBuscar y Texto Remplazar.
Por ejemplo
TextoBuscar="12"
TextoRemplazar="L"
Eso buscaria donde encuentre un 12 y lo remplaza por una L
Tambien prodria se asi:
TextoBuscar="12"
TextoRemplazar="LACASA"
'-----------------------------Inicio codigo boton Remplazar------------------------------
Private Sub btnRemplazar_Click()
Dim Pos As Integer
Dim Ultimo As Integer
Dim Texto As String
Dim TextoBuscar As String
Dim TextoRemplazar As String
Dim blnRemplazar As Boolean
'Texto que se usara para buscar
TextoBuscar = "12"
TextoRemplazar = "LALA"
Texto = " " & txtDatos & " "
Pos = -1
Ultimo = 1
While Pos <> 0
blnRemplazar = False
Pos = InStr(Ultimo, Texto, TextoBuscar)
If Pos <> 0 Then
If Mid(Texto, Pos - 1, 1) = " " Or Mid(Texto, Pos - 1, 1) = Chr(10) Then
blnRemplazar = True
Else
blnRemplazar = False
End If
If (Mid(Texto, Pos + Len(TextoBuscar), 1) = " " Or Mid(Texto, Pos + Len(TextoBuscar), 1) = Chr(13)) And blnRemplazar = True Then
blnRemplazar = True
Else
blnRemplazar = False
End If
If blnRemplazar = True Then
Texto = Mid(Texto, 1, Pos - 1) & TextoRemplazar & Mid(Texto, Pos + Len(TextoBuscar), Len(Texto))
End If
End If
Ultimo = Pos + Len(TextoBuscar) + 1
Wend
Texto = Mid(Texto, 2, Len(Texto) - 1)
txtDatos = Texto
End Sub
'-----------------------------Fin codigo boton Remplazar------------------------------
Con respecto a tu segunda duda eso si esta enrredado porque no entiendo que es lo que haces con +500+200+30+50 para que te de X+50.0Y+20.0I+3.0J+5.0 osea que logica hay que aplicar para llegar a ese resultado.
Saludos
http://www.theemulator.tk