Evaluate filter + hyperlinks as excel text source

Author: Sébastien Geiser

RegexDialog/Model/ExcelSheetSelection.cs

@@ -1,8 +1,12 @@
 using ClosedXML.Excel;
 using DocumentFormat.OpenXml.Bibliography;
+using Newtonsoft.Json;
+using System;
 using System.Collections.Generic;
 using System.Linq;
 using System.Text.RegularExpressions;
+using System.Windows;
+using System.Windows.Input;
 
 namespace RegexDialog
 {
@@ -18,6 +22,22 @@ public class ExcelSheetSelection : NotifyPropertyChangedBaseClass
         public string Name { get; set; } = string.Empty;
         public string Filter { get; set; } = string.Empty;
 
+        [JsonIgnore]
+        public ICommand EvaluateCommand => new RelayCommand(_ =>
+        {
+            using(IXLWorkbook workbook = new XLWorkbook(Config.Instance.TextSourceExcelPath))
+            {
+                try
+                {
+                    MessageBox.Show(InterpretStuffInFilter(Filter, workbook.Worksheet(Name)));
+                }
+                catch(Exception exception)
+                {
+                    MessageBox.Show(exception.Message, "Error", MessageBoxButton.OK, MessageBoxImage.Error);
+                }
+            }
+        });
+
         public IEnumerable<IXLCell> GetCells(IXLWorksheet sheet)
         {
             if (string.IsNullOrWhiteSpace(Filter))

RegexDialog/RegExToolDialog.xaml

@@ -896,7 +896,7 @@
                                                           Grid.IsSharedSizeScope="True">
                                                 <ItemsControl.ItemTemplate>
                                                     <DataTemplate DataType="local:ExcelSheetSelection">
-                                                        <AutoGrid Columns="Auto,*" ColumnsSharedSizeGroups="Sheet">
+                                                        <AutoGrid Columns="Auto,*,Auto" ColumnsSharedSizeGroups="Sheet">
                                                             <CheckBox Content="{Binding Name}"
                                                                   IsChecked="{Binding IsSelected, UpdateSourceTrigger=PropertyChanged}" />
                                                             <TextBox  Text="{Binding Filter}"
@@ -919,6 +919,11 @@
                                                                     </StackPanel>
                                                                 </TextBox.ToolTip>
                                                             </TextBox>
+                                                            <Button Content="="
+                                                                    Padding="5,0"
+                                                                    ToolTip="Evaluate expressions of the Filter and show the result filter"
+                                                                    Command="{Binding EvaluateCommand}"/>
+
                                                         </AutoGrid>
                                                     </DataTemplate>
                                                 </ItemsControl.ItemTemplate>

RegexDialog/RegexDialog.csproj

@@ -57,6 +57,9 @@
     <Reference Include="CodingSeb.Layouts, Version=1.0.4.0, Culture=neutral, processorArchitecture=MSIL">
       <HintPath>..\packages\CodingSeb.Layouts.1.0.4\lib\net47\CodingSeb.Layouts.dll</HintPath>
     </Reference>
+    <Reference Include="CodingSeb.Mvvm, Version=1.2.4.0, Culture=neutral, processorArchitecture=MSIL">
+      <HintPath>..\packages\CodingSeb.Mvvm.1.2.4\lib\net45\CodingSeb.Mvvm.dll</HintPath>
+    </Reference>
     <Reference Include="Costura, Version=5.7.0.0, Culture=neutral, processorArchitecture=MSIL">
       <HintPath>..\packages\Costura.Fody.5.7.0\lib\netstandard1.0\Costura.dll</HintPath>
     </Reference>

RegexDialog/Utils/Config.cs

@@ -103,6 +103,11 @@ private void Init()
                     GetValue = cell => cell.HasComment ? cell.GetComment().Author : ""
                 },
                 new ExcelCellTextSource()
+                {
+                    Name = "Hyperlink",
+                    GetValue = cell => cell.HasHyperlink ? (cell.GetHyperlink().IsExternal ? cell.GetHyperlink().ExternalAddress.AbsoluteUri : cell.GetHyperlink().InternalAddress) : ""
+                },
+                new ExcelCellTextSource()
                 {
                     Name = "Cell address",
                     GetValue = cell => cell.Address.ToString()

RegexDialog/packages.config

@@ -5,6 +5,7 @@
   <package id="CodingSeb.Converters" version="1.0.5" targetFramework="net47" />
   <package id="CodingSeb.ExpressionEvaluator" version="1.4.40" targetFramework="net47" />
   <package id="CodingSeb.Layouts" version="1.0.4" targetFramework="net47" />
+  <package id="CodingSeb.Mvvm" version="1.2.4" targetFramework="net47" />
   <package id="Costura.Fody" version="5.7.0" targetFramework="net47" developmentDependency="true" />
   <package id="CS-Script.bin" version="3.30.5.1" targetFramework="net46" />
   <package id="CS-Script.lib" version="3.30.5.1" targetFramework="net46" />