抱歉,我对RegEx还不太熟悉,希望有人能帮上忙。
问题中的文件:
Apples.A.Tasty.Treat.Author-JoeDirt.doc
Cooking with Apples Publisher-Oscar Publishing.txt
Candied.Treats.Author-JenBloc.Publisher-Event.docx
我目前使用这段vbscript代码将文件名中的空格或破折号替换为句点,但我想知道是否有更有效的方法来实现这一点?
Set colRegExMatches = strRegEx.Execute(objSourceFil
我尝试在带有VBScript的文件中的两个特定行之间插入一行:
# Ligne 1
# Ligne 2
=>
# Ligne 1
# Ligne 1 bis
# Ligne 2
我的脚本代码是:
Dim regEx
Set regEx = New RegExp
regEx.Pattern = "# Ligne 1\r\n# Ligne 2"
regEx.Pattern = patrn
regEx.IgnoreCase = not Casse
regEx.Global = True
RegExpReplace=regEx.Rep
我正在使用excel打开一个文本文件,找到某个字符串,然后将其替换为空/删除它。显然,我很难弄清楚星号/通配符的正确语法,希望这对某些人来说是一个简单的答案!
下面是我的代码的一个简单示例,以防它有一些隐藏的影响。
Sub ReplaceText()
Dim DataFind As String
Open "ORIGINAL\073347.TXT" For Binary As #1
DataFind = Space$(LOF(1))
Get #1, , DataFind
Close #1
'<< 073347 &
我试图通过宏替换Excel 2003 (VB5.5)中的字符串(例如所有数字)。现在,我有这样的代码:
Sub DeleteDigits()
Dim hLink As Hyperlink
Dim wSheet As Worksheet
For Each wSheet In Worksheets
For Each hLink In wSheet.Hyperlinks
hLink.Address = regEx.Replace(hLink.Address, "\d", "")
Next hLink
Next wSheet
End S
我尝试使用以下方法将当前打开的文档中的所有文本内容替换为数字零,但不起作用
Set objWdDoc = Word.Application.ActiveDocument
Set objWdRange = objWdDoc.Content
Dim re As New RegExp
re.Global = True
re.Pattern = "[a-z]"
re.IgnoreCase = True
objWdRange = re.Replace(objWdRange, "0")
有没有人能建议一个工作方法?
我有这样的短信:
Lorem ipsum dolor,consectetuer adipiscing elit,sed diam amet nibh euismod t laoreet dolore magna erat volutpat.
我试图删除每对“代码”标记之间的所有内容。当每个单元格只有一对标记时,我编写了一个功能很好的函数,但它没有处理多个实例。以下是所需的输出:
Lorem -.
你建议我怎么做?
我有几个字符串,如下所示:
xml=<data><optional><Account>192</Account></optional></data>, submitter=Q102, target=Q10, escalationType=esc, escalationReason=277, feedback=cx req live esc to have us review, adv cx his account is pending, preventable=0,
我要做的是用excel (vb)编写一个正则表达式,查
作为更大代码的一部分,我正在尝试拆分文件名字符串,以便可以使用基数在一组文件夹中搜索文件。 典型的文件名包括: TEST-999-TY-MOD-DOC-000999-SOME RANDOM FILE NAME.xls
TEST-999-TY-MOD-DOC-000998_SOME RANDOM FILE NAME.xls
TEST-999-TY-MOD-DOC-000997 SOME RANDOM FILE NAME.xls
TEST-999-TYP-MOD-DOC-000999-SOME RANDOM FILE NAME.xls
TEST-999-TYP-MOD-DOC-000998_S
我在Excel中有一个带有文本框和命令按钮的userform。当文本框中有一个文本时,我按了命令按钮,它会删除空行,但不是全部。它在那里保留了几条空线。如何调整下面的代码,以便删除所有空行?(非舱间)
Private Sub CommandButton1_Click()
Dim A$, I&
A = TextBox1
Do
I = Len(A)
A = Replace(A, vbCrLf & vbCrLf, vbCrLf)
Loop While Len(A) <> I
TextBox1 = A
每天我都收到如下所示的值,因为为了自动化,我希望从文本中获取字符串的最后一部分。例如,从下面的
( a) 999999000045090
( b) 9990090105
( c) 9999010000
( d) 990000660000
根据以上所述,我需要按这里给出的正确值来获取实际值。
( a) 45090
( b) 90105
( c) 10000
( d) 660000
因为长度是可变的而不是固定的,所以我需要帮助来解决
我一遍又一遍地重复下面的消息错误“第2行中语句的意外结束”,我看不到它有什么问题吗?我做错什么了..。
Sub Main()
Dim regex As Regex = New Regex("\d+")
Dim match As Match = regex.Match("Dot 77 Perls")
If match.Success Then
MessageBox.Show(match.Value)
End If
End Sub
我需要用来自自定义对象的特定值替换使用标志字符标记的泛型子字符串。我已经编写了实现我想要的东西的代码,尽管它感觉很尴尬。我想知道这个问题是否有更复杂的解决办法。具体来说,我想知道是否有一个快速函数,可以用其他值替换带有这样标记的子字符串,这取决于泛型出现的子字符串。
以下是我的当前代码:
Private Function DeGenerify(field_text As String)
Dim new_text As String, breakup As Variant
Dim i As Integer, lgth As Integer, prop As String
有人能帮我删除HTML代码并在excel中填充不同的列吗?
就像。如果我的HTML代码是:
<p></p>10-16-2013 22:35<br/>I love pizza! Ordering was a breeze!<p></p>10-16-2013 13:19:46<br />this has time stamps too!<p></p>10-21-2013 11:55<br />This is a test<br />
如何像这样在Excel中将其作为单独的列输出?
我从Javascript中调用了一个vbscript函数"MyVbalert“,但是vbscript事件没有触发。我想当“选择”按钮被点击时,它应该会触发一个vbscript函数。它在任何浏览器中都不起作用,即使在IE中也是如此
<script type="text/vbscript">
Function MyVbalert()
{
MsgBox("Hello from VB Script !")
End Function
}
<
将我在Java中使用的一种方法转换为VBA比预期的要困难得多。
我有一个正则表达式,可以在中找到它
它使用命名对象组,经过一些研究,VBA似乎不支持这些命名对象组。我正在尝试为excel编写一个函数,它将根据函数的输入将IP地址格式化为不同的格式。
如何使用命名组来捕获不同的模式?
Function formatIP(item As String, displayType As String) As String
'displayTypes CIDR,MASK,RANGE
'Set theRegEx = CreateObject("VBScript.RegExp
我有这个代码,但我似乎仍然不能用简单的“占位符”替换数据中的非英语字符,如越南语或泰语。
Sub NonLatin()
Dim cell As Range
For Each cell In Range("A1", Cells(Rows.Count, "A").End(xlUp))
s = cell.Value
For i = 1 To Len(s)
If Mid(s, i, 1) Like "[!A-Za-z0-9@#$%^&* * ]" Then cell.