#include <MsgBoxConstants.au3>
#include <Array.au3>
#include <File.au3>



Func SaveBaseSend($DataSearch, $DataSend)

	Local $vReturn
	$datos = FileOpen ($UbiFiltroClien)
	$informacionLeida = FileRead($datos)
	FileClose($datos)
	$DataBaseFilas = StringSplit($informacionLeida, @CR, 2)
	$tamanoDeBase = UBound($DataBaseFilas)
	Local $e = 0
	Local $NumberFilas
	$NumeroCliente = "123456789"

	For $filas = 1 To $tamanoDeBase-1

		$DataBaseColumnas = StringSplit($DataBaseFilas[$e], ";", 2)

		If $DataBaseColumnas[1] = $NumeroCliente Then
			$NumberFilas = $e
			ExitLoop
		Else
		EndIf

		$e = $e+1
	Next

	Switch $DataSearch

		Case "FECHA"

			$ValorReemplazo = StringReplace($DataBaseFilas[$NumberFilas], $DataBaseColumnas[0], $DataSend)
			$Input = FileRead($UbiFiltroClien)
			FileDelete($UbiFiltroClien)
			FileWrite($UbiFiltroClien,StringRegExpReplace($Input, $DataBaseFilas[$NumberFilas], $ValorReemplazo))

		Case "DOCUMENTO"

			$ValorReemplazo = StringReplace($DataBaseFilas[$NumberFilas], $DataBaseColumnas[1], $DataSend)
			$Input = FileRead($UbiFiltroClien)
			FileDelete($UbiFiltroClien)
			FileWrite($UbiFiltroClien,StringRegExpReplace($Input, $DataBaseFilas[$NumberFilas], $ValorReemplazo))

		Case "NOMBRE"

			$ValorReemplazo = StringReplace($DataBaseFilas[$NumberFilas], $DataBaseColumnas[2], $DataSend)
			$Input = FileRead($UbiFiltroClien)
			FileDelete($UbiFiltroClien)
			FileWrite($UbiFiltroClien,StringRegExpReplace($Input, $DataBaseFilas[$NumberFilas], $ValorReemplazo))

		Case "PROYECTO"

			$ValorReemplazo = StringReplace($DataBaseFilas[$NumberFilas], $DataBaseColumnas[3], $DataSend)
			$Input = FileRead($UbiFiltroClien)
			FileDelete($UbiFiltroClien)
			FileWrite($UbiFiltroClien,StringRegExpReplace($Input, $DataBaseFilas[$NumberFilas], $ValorReemplazo))

		Case "SUBPROYECTO"

			$ValorReemplazo = StringReplace($DataBaseFilas[$NumberFilas], $DataBaseColumnas[4], $DataSend)
			$Input = FileRead($UbiFiltroClien)
			FileDelete($UbiFiltroClien)
			FileWrite($UbiFiltroClien,StringRegExpReplace($Input, $DataBaseFilas[$NumberFilas], $ValorReemplazo))

		Case "CIUDAD"

			$ValorReemplazo = StringReplace($DataBaseFilas[$NumberFilas], $DataBaseColumnas[5], $DataSend)
			$Input = FileRead($UbiFiltroClien)
			FileDelete($UbiFiltroClien)
			FileWrite($UbiFiltroClien,StringRegExpReplace($Input, $DataBaseFilas[$NumberFilas], $ValorReemplazo))

		Case "PRECIO"

			$ValorReemplazo = StringReplace($DataBaseFilas[$NumberFilas], $DataBaseColumnas[6], $DataSend)
			$Input = FileRead($UbiFiltroClien)
			FileDelete($UbiFiltroClien)
			FileWrite($UbiFiltroClien,StringRegExpReplace($Input, $DataBaseFilas[$NumberFilas], $ValorReemplazo))

		Case "EXTERIOR"

			$ValorReemplazo = StringReplace($DataBaseFilas[$NumberFilas], $DataBaseColumnas[7], $DataSend)
			$Input = FileRead($UbiFiltroClien)
			FileDelete($UbiFiltroClien)
			FileWrite($UbiFiltroClien,StringRegExpReplace($Input, $DataBaseFilas[$NumberFilas], $ValorReemplazo))

		Case "PAIS"

			$ValorReemplazo = StringReplace($DataBaseFilas[$NumberFilas], $DataBaseColumnas[8], $DataSend)
			$Input = FileRead($UbiFiltroClien)
			FileDelete($UbiFiltroClien)
			FileWrite($UbiFiltroClien,StringRegExpReplace($Input, $DataBaseFilas[$NumberFilas], $ValorReemplazo))

		Case "CIUDAD EXTERIOR"

			$ValorReemplazo = StringReplace($DataBaseFilas[$NumberFilas], $DataBaseColumnas[9], $DataSend)
			$Input = FileRead($UbiFiltroClien)
			FileDelete($UbiFiltroClien)
			FileWrite($UbiFiltroClien,StringRegExpReplace($Input, $DataBaseFilas[$NumberFilas], $ValorReemplazo))

		Case "MAS INFO"

			$ValorReemplazo = StringReplace($DataBaseFilas[$NumberFilas], $DataBaseColumnas[10], $DataSend)
			$Input = FileRead($UbiFiltroClien)
			FileDelete($UbiFiltroClien)
			FileWrite($UbiFiltroClien,StringRegExpReplace($Input, $DataBaseFilas[$NumberFilas], $ValorReemplazo))

		Case "CORREO"

			$ValorReemplazo = StringReplace($DataBaseFilas[$NumberFilas], $DataBaseColumnas[11], $DataSend)
			$Input = FileRead($UbiFiltroClien)
			FileDelete($UbiFiltroClien)
			FileWrite($UbiFiltroClien,StringRegExpReplace($Input, $DataBaseFilas[$NumberFilas], $ValorReemplazo))

		Case "TELEFONO"

			$ValorReemplazo = StringReplace($DataBaseFilas[$NumberFilas], $DataBaseColumnas[4], $DataSend)
			$Input = FileRead($UbiFiltroClien)
			FileDelete($UbiFiltroClien)
			FileWrite($UbiFiltroClien,StringRegExpReplace($Input, $DataBaseFilas[$NumberFilas], $ValorReemplazo))

	EndSwitch





EndFunc