WebAutomation.LaunchChrome.LaunchChrome Url: $'''www.bde.es''' WindowState: WebAutomation.BrowserWindowState.Maximized ClearCache: False ClearCookies: False WaitForPageToLoadTimeout: 60 Timeout: 60 PiPUserDataFolderMode: WebAutomation.PiPUserDataFolderModeEnum.AutomaticProfile BrowserInstance=> Browser
Excel.LaunchExcel.LaunchUnderExistingProcess Visible: True Instance=> ExcelInstance
SET CabeceraColumnas TO {['Concepto', 'Fecha', 'Valores'] }
Excel.WriteToExcel.WriteCell Instance: ExcelInstance Value: CabeceraColumnas Column: $'''A''' Row: 1
WebAutomation.ExtractData.ExtractList BrowserInstance: Browser Control: $'''html > body > section > section:eq(7) > div > div > div:eq(0) > div > div:eq(1) > div > article''' ExtractionParameters: {[$'''div > div > p:eq(0)''', $'''Own Text''', $''''''] } PostProcessData: False TimeoutInSeconds: 60 ExtractedData=> ConceptosActual
SET Fila TO 2
LOOP FOREACH ConceptosActual IN ConceptosActual
Text.Trim Text: ConceptosActual TrimOption: Text.TrimOption.Both TrimmedText=> ConceptosActual
Excel.WriteToExcel.WriteCell Instance: ExcelInstance Value: ConceptosActual Column: 1 Row: Fila
Variables.IncreaseVariable Value: Fila IncrementValue: 1
END
WebAutomation.ExtractData.ExtractList BrowserInstance: Browser Control: $'''html > body > section > section:eq(7) > div > div > div:eq(0) > div > div:eq(1) > div > article''' ExtractionParameters: {[$'''div > div > p:eq(2)''', $'''Own Text''', $''''''] } PostProcessData: False TimeoutInSeconds: 60 ExtractedData=> FechaActual
SET Fila TO 2
LOOP FOREACH FechaActual IN FechaActual
Text.ParseText.RegexParseForFirstOccurrence Text: FechaActual TextToFind: $'''(\\d{1,2}\\/\\d{1,2}\\/\\d{2,4})|(\\d{1,2}\\\\d{1,2}\\\\d{2,4})|(\\d{1,2}-\\d{1,2}-\\d{2,4})|(\\d{1,2}.\\d{1,2}.\\d{2,4})''' StartingPosition: 0 IgnoreCase: True Match=> Match
**REGION Date Format Handler
Text.ConvertTextToDateTime.ToDateTime Text: Match DateTime=> TextAsDateTime
ON ERROR
GOTO EuroDateFormat
END
GOTO NAdateFormat
LABEL EuroDateFormat
Text.ConvertTextToDateTime.ToDateTimeCustomFormat Text: Match CustomFormat: $'''dd/MM/yyyy''' DateTime=> TextAsDateTime
LABEL NAdateFormat
**ENDREGION
Text.ConvertDateTimeToText.FromDateTime DateTime: TextAsDateTime StandardFormat: Text.WellKnownDateTimeFormat.ShortDate Result=> FormattedDateTime
Excel.WriteToExcel.WriteCell Instance: ExcelInstance Value: FormattedDateTime Column: 2 Row: Fila
Variables.IncreaseVariable Value: Fila IncrementValue: 1
END
WebAutomation.ExtractData.ExtractList BrowserInstance: Browser Control: $'''html > body > section > section:eq(7) > div > div > div:eq(0) > div > div:eq(1) > div > article''' ExtractionParameters: {[$'''div > div > p:eq(1)''', $'''Own Text''', $''''''] } PostProcessData: False TimeoutInSeconds: 60 ExtractedData=> ValorActual
SET Fila TO 2
LOOP FOREACH ValorActual IN ValorActual
Text.Trim Text: ValorActual TrimOption: Text.TrimOption.Both TrimmedText=> ValorActual
Text.Replace Text: ValorActual TextToFind: $'''%' '%''' IsRegEx: False IgnoreCase: False ReplaceWith: $'''%''%''' ActivateEscapeSequences: False Result=> ValorActual
Text.Replace Text: ValorActual TextToFind: $''',''' IsRegEx: False IgnoreCase: False ReplaceWith: $'''.''' ActivateEscapeSequences: False Result=> ValorActual
IF Contains(ValorActual, $'''%'$'%''', False) THEN
Text.Replace Text: ValorActual TextToFind: $'''%'$'%''' IsRegEx: False IgnoreCase: False ReplaceWith: $'''%''%''' ActivateEscapeSequences: False Result=> ValorActual
SET ValorActual TO $'''$%ValorActual%'''
END
Excel.WriteToExcel.WriteCell Instance: ExcelInstance Value: ValorActual Column: 3 Row: Fila
Variables.IncreaseVariable Value: Fila IncrementValue: 1
END
# Inicio Fecha Actual
DateTime.GetCurrentDateTime.Local DateTimeFormat: DateTime.DateTimeFormat.DateAndTime CurrentDateTime=> FechaHoraActual
Text.ConvertDateTimeToText.FromCustomDateTime DateTime: FechaHoraActual CustomFormat: $'''ddMMyyyyHHmmss''' Result=> FechaHoraActual
# Fin Fecha Actual
# Inicio RutaArchivo
Folder.GetSpecialFolder SpecialFolder: Folder.SpecialFolder.DesktopDirectory SpecialFolderPath=> RutaEscritorio
Text.CropText.CropTextBetweenFlags Text: RutaEscritorio FromFlag: $'''C:\\Users\\''' ToFlag: $'''\\''' IgnoreCase: True CroppedText=> User
SET RutaDownLoads TO $'''C:\\Users\\%User%\\Documents\\%FechaHoraActual%'''
# Fin RutaArchivo
Excel.CloseExcel.CloseAndSaveAs Instance: ExcelInstance DocumentFormat: Excel.ExcelFormat.OpenXmlWorkbook DocumentPath: RutaDownLoads
WebAutomation.CloseWebBrowser BrowserInstance: Browser
