Tag: 正则expression式

C ++ Excel :: RangePtr – expression式必须是一个指向完整对象types的指针

我原来的模块是基于这个教程 。 基本上我有一个编译好，工作正常，但IntelliSense污染“错误列表”视图与虚假错误的模块。 … // Access Excel Worksheet and return pointer to Worksheet cells Excel::_WorksheetPtr pWksheet = pXL->ActiveSheet; pWksheet->Name = L"Sheet1"; Excel::RangePtr pRange = pWksheet->Cells; // Read an Excel data cell. (Note Excel cells start from index = 1) double value1 = pRange->Item[1][2]; //pRange, Error: Expression must be a pointer to a complete object type […]

从string中删除推特正则expression式

我有一张填充了推文的Excel表格。 有几个条目包含@blahtypes的string等。 我需要保留文本的其余部分，并删除@blah部分。 例如：“@ villos hey dude”需要转化为：“hey dude”。 这是我到目前为止所做的。 Sub Macro1() ' ' Macro1 Macro ' Dim counter As Integer Dim strIN As String Dim newstring As String For counter = 1 To 46 Cells(counter, "E").Select ActiveCell.FormulaR1C1 = strIN StripChars (strIN) newstring = StripChars(strIN) ActiveCell.FormulaR1C1 = StripChars(strIN) Next counter End Sub Function StripChars(strIN As String) […]

正则expression式VBA Excel查找单元格内的模式

我正在尝试使用excel和VBA与正则expression式来分割数据行以匹配模式。 我所有的数据都在一列中，每一行都需要分成三部分。 我的问题涉及正则expression式的使用以及术语的相互作用以及下一个术语的使用原因。 例如，我有一行内容如下： "([AZ]{3})(\W{5,})(.+)(\|\d\.\d)" 我是否应该将其读作“任何3个大写字母，后面跟着至less5个非单词字符，然后把所有的东西都包括在内（包括小数点的小节点吧）（不再）”？ 或者是。+会一直蔓延到我的数据结束，直到它达到一个换行符？ 我想我想知道的是，如果一个新术语会中断上一个术语（例如上面的“+”到“| digit.digit”）。 任何协助清理这个对我来说将是超级赞赏，谢谢你提前。 编辑：例子 ABC|^-\%!lkaddghlk shfdahah|$^~436346dghdhg|^dgf^356||P|7.7XYZ~^!HYU52 这只会捕获吗？ ABC|^-\%!lkaddghlk shfdahah|$^~436346dghdhg|^dgf^356||P|7.7 因为最后一个术语是| digit.digit，还是因为第三个捕获组中的。+而捕获所有内容？ 编辑： 感谢大家的意见，你的反馈真的帮了我一个忙！

根据文件的名称和date，将文件夹中的工作簿合并到中央工作簿中

我有一个文件夹中的多个文件。 我需要根据原始文件的名称和date将这些单独的文件合并到具有多个工作表的中央工作簿中，这些工作簿与原始工作簿的名称相同。 例如，在一个文件夹中我可能有以下文件： Fund1809_Equity_20140917 Fund1809_FI_20140917 Fund1809_Unlisted_20140917 Fund1809_Equity_20141221 Fund1809_FI_20141221 Fund780_Equity_20140917 Fund68092_Equity_20140917 我需要将具有相同基金名称和date的所有文件放入工作簿中。 因此，预期的结果应该是4个工作簿： Fund1089_20140917与“股权”，“FI”和“未列出”选项卡 Fund1089_20141221带有“Equity”和“FI”选项卡 Fund780_20140917与“权益”选项卡 Fund68092_20140917与“权益”选项卡 我有基于基金名称的前4个字符sorting的代码。 因此，我遇到了问题，因为基金代码的长度不固定为4，也不按datesorting。 这是我的代码： Sub test() Const TO_DELETE_SHEET_NAME As String = "toBeDeleted" '—————————————————————— Dim settingSheetsNumber As Integer Dim settingDisplayAlerts As Boolean Dim dict As Object Dim wkbSource As Excel.Workbook Dim wks As Excel.Worksheet Dim filepath As String Dim code As […]

PowershellsearchExcel正则expression式

我正在尝试使用正则expression式search包含许多MS Excel文件的目录，同时保持性能。 我有一个脚本，将做到这一点，感谢罗伯特·图斯和迈克尔索伦斯 ，只有它似乎忽略没有标题的列。 我曾考虑过使用$ WorkSheet.UsedRange作为限制search的尝试，但遇到大型工作表时似乎有相当的性能。 有另一种方法吗？ Set-Location $SearchPath ForFiles /s /m "*.*" /c "cmd /c echo @PATH" 2> $null | Where-Object {$_ -ne ""} | ForEach-Object { $Path = $_.replace("`"","") … if ($Path -match "\.xls.?$") { function Import-Excel([string]$FilePath, [string]$SheetName = "") { $csvFile = Join-Path $env:temp ("{0}.csv" -f (Get-Item -path $FilePath).BaseName) if (Test-Path -path […]

Excel用户定义的函数：使用正则expression式匹配一个string，循环传递给函数的几个值作为范围

我有几行数据需要与另一个表单中的数据匹配，然后将匹配列中find的值input到同一个表单中。 问题是这样设置的： 我有一些input数据，如下面的截图所示。 对于“名称”字段（B列）中的每个条目，我想要到达另一个表单，我将其称为“参考表”，其结构如下所示： 然后循环访问列E中的条目以及匹配的任何地方，select列A，B中的值和匹配的行号，并将其作为附加列插入到input表中。 结果将如下所示： 请注意，input数据“名称”字段包含不是“干净”的条目，但仍包含将出现在“参考工作表”的其中一行中的string。 在这个例子中，第3行包含与“参考表”中的E6和E8相匹配的条目“Rostock A”。 由于这个原因，我想使用regex并写了一个VBA函数，目前，它并没有做我期望的事情： Public Function test_regex_func(input_cell As Range, _ regex_range As Range _ ) As Variant On Error GoTo ErrHandl Dim regexpr As Object Set regexpr = CreateObject("VBScript.RegExp") Dim arrOutputValues() As Variant Dim i As Integer i = 1 For Each regex_entry In regex_range regexpr.Pattern = regex_entry If […]

在附加数据的同时在Excel SaveParser中发出

我想创build，然后在Excel文件中使用Perl脚本附加一些数据。 正如许多论坛链接所build议的，我参考了Spreadsheet :: WriteExcel模块链接上提供的示例代码 。 电子表格创build成功，没有问题。 但是，然后我使用第二个脚本来追加一些数据到现有的文件。 我使用Spreadsheet :: ParseExcel :: SaveParser模块，并使用此链接提供的示例代码。 以下是我的代码完全相同的网站上提供的代码： #!/usr/bin/perl use Spreadsheet::ParseExcel; use Spreadsheet::ParseExcel::SaveParser; use Spreadsheet::WriteExcel; # Open an existing file with SaveParser my $parser = Spreadsheet::ParseExcel::SaveParser->new(); my $template = $parser->Parse('perl.xls'); # Get the first worksheet. my $worksheet = $template->worksheet(0); my $row = 0; my $col = 0; # Overwrite the […]

正则expression式在libre calc中find两个单词

我在libre calc单元格中有以下数据 单元格a1 某物 something2 为XXX存款填写必要的细节 单元格a2 某物 something2 填写XXX-现金柜台的必要细节 现在我想匹配所有单元格中的string和东西2 ，用正则expression式replace为另一个单词'new' 。

在导出表格之前，使用“表格导出”button执行另一个function

我正在使用“表格导出”将HTML表格导出到.xlsx文件。 问题出在我的桌子上有一个像“/”后跟一个数字的字符。 在Excel表格中，它将它们更改为特殊字符。 无论如何，我可以避免这种情况。 如果不是，我想要在“/”和数字之间加上空格。 我想通过点击由tableexport.js创build的“Export to xlsx”button来实现。 我想要点击function来改变在桌子上，然后出口到Excel。 这是我的代码到目前为止： HTML <table class="request-table" border="1"> <tr> <th>Column 1</th> <th>Column 2</th> <th>Column 3</th> </tr> <tr> <td>Downton /4bbey</td> <td>D/3xter</td> <td>/1Zombie</td> </tr> <tr> <td>Chuc/5</td> <td>Fr/1ng/e</td> <td>/Breaking /6ad</td> </tr> </table> jQuery的 $(".addSpace").each(function() { var text = $(this).text(); $(this).text(text.replace(/\//g, '/ ')); }); $(".request-table").tableExport({ bootstrap: false, formats: [ "xlsx"] }); 这是我的小提琴 请帮忙！

使用RegEx进行条件格式化的Excel VBA

我有一个Excel 2010 VBAmacros，它在电子表格的选定区域上执行一些条件格式。 作为一个例子，下面的代码片段search一个文本模式然后着色单元格： Selection.FormatConditions.Add Type:=xlTextString, String:="TextToMatch", _ TextOperator:=xlContains Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority With Selection.FormatConditions(1).Interior .PatternColorIndex = xlAutomatic .ColorIndex = 36 .TintAndShade = 0 End With Selection.FormatConditions(1).StopIfTrue = False 我想补充的是匹配正则expression式TN[0-9] 。 stringTN跟一个数字的简单匹配。 我创build了RegExp： Dim regEx As Object Set regEx = CreateObject("VBScript.RegExp") With regEx .Pattern = "TN[0-9]" End With 但是我还没有想出如何将这个应用到Selection 。 一如既往，感谢您的帮助。