Dear people at Stackoverflow,
I would like to replace for every incoming e-mail the paragraph marks (^p i believe, at least in outlook Find & Replace) with manual line breaks (^l).
I've not been able to find a solution trough Google, but I might be searching wrong.
I am using the following code as a rule for every incoming e-mail:
(FYI this code works just fine with text)
Sub testing(MyMail As MailItem)
MyMail.HTMLBody = Replace(MyMail.HTMLBody, "example", "changedtext")
MyMail.Save
End Sub
Now I have tried to change the 2nd line to:
MyMail.HTMLBody = Replace(MyMail.HTMLBody, "^p", "^l")
And
MyMail.HTMLBody = Replace(MyMail.HTMLBody, "chr(13)", "chr(10)")
But these did not seem to work.
Unfortunately I'm not very familiar with VBA coding.
I've just been told I need to use chr() but I don't have a clue on how to do that.
Some background information:
I am using 2 rules, 1 to change every ^p with ^l and the other rule is to convert the email from HTML to plain text.
If I just convert it without first changing the ^p with ^l it will have all these extra empty lines.
Example:
Is someone out there that is willing to help me with this?
I would really appreciate it!
Regards,
Kris
There are several ways to do it, but all with the same side-effect.
If user SHIFT + ENTER 2 times, they will result in 1 new line also
Solution 1:
'Replace 2 newline into 1 newline
'vbCrLf is actually Chr(13) & Chr(10)
mail.HTMLBody = Replace(mail.HTMLBody, vbCrLf & vbCrLf, vbCrLf)
Solution 2:
'Replace any extra newline into ""
there will be an extra blank link at the very end
tmp = Split(mail.HTMLBody, vbCrLf)
For Each Line In tmp
If Line <> "" Then
newBody = newBody & Line & vbCrLf
End If
Next
mail.HTMLBody = newBody
Related
I am writing html files from a stack. This is a bit of a pain because for every line I have to write something like the following if the file contains quotes.
write "<div id=hidden-" & quote & myKanton & quote && "style=" & quote & "display:block;" "e&&"class=" "e & "popuptable" "e& ">" & LF to file tOutputFileCH
Now I have to add a lot of html code again and I'm wondering if there is an easier way to be able to do something like:
write escaped("my html numbers and "txt" with quotes") to file
I do not need variables within the html text.
Often, people use functions like
function q theText
replace "'" with quote in theText
return theText
end q
which can be used as
write q("<div id=hidden-'" & myKanton & "' style='display:block;'" & "class='popuptable'>" & LF) to file tOutputFileCH
You can use a string like in above example but you can also use any container:
get q(myVariable)
put q(it) into field 1
put q(field 1) into field 2
put q(url myUrl) into url myOtherUrl
put q(the cProperty of me) into myVar
-- etc etc etc
You can also use ´ or ` instead of ' if you change the q function.
By the way, I noticed that you don't include hidden- in the quotes. Are you sure that's correct?
HTML allows use of quotes and single quotes, so you can...
put "<div style='border:1px'>" into tHTML
LiveCode's format command allows you to escape double quotes...
put format("my html numbers and \"txt\" with quotes") into tData
It is working now. I put the html lines in a custom stack property and use that as input when writing the file. Works perfectly. It even seems to work without the q function.
write ( the cMapOverlay of stack "AfaConverter" ) & LF to file tOutputFileCH
I also tried that because
onmouseover="nhpup.popup($('#hidden-VS').html(), {'width': 400});" href="./kantone/index_kanton_VS.html"
this is trouble with q without adaptions because ' is replaced with " which is a problem.
There are some good answers here. Let me suggest another approach. You could use a quoting function, but in a slightly different way:
function q pString
return quote & pString & quote
end q
Then use the LiveCode merge() function. Merge evaluates any LiveCode expression or variable enclosed in [[ ]] and incorporates it into the enclosing quoted text:
write merge("my html numbers and [[q("txt")]]") to file
I am working on VBA, but I have one problem of how to replace a tag of HTML with Alt+Enter. For example, If I type a sentence: Hello World. In shell of Excel, I press on Alt+Enter to Enter between Hello and World. Then I want to copy it to somewhere else that after I copied it shows like: HelloWorld. Any help would be appreciate.
The <br> tag in HTML just gives you a line break.
In VBA, you can accomplish the same thing using the vbNewLine constant.
The Replace function will come in handy for this.
Dim input As String
input = "Hello<br>World!"
Dim result As String
result = Replace$(input, "<br>", vbNewLine)
You can use Excel formula:
=SUBSTITUTE(B4, "<br>", " Alt+Enter ")
myaddress= "Sk ks, Röntenstrasse 31, Wolle"
I am writing VB script in QTP.
how can I find out whether if any DIV tag contains this "myaddress"?
if it exists
msgbox "it exists"
if not
msgbox "it doesn't".
Thanks in advance.
Using QTP you can use the innertext property to find an element.
If Browser("bb").Page("pp").WebElement("html tag:=div", "innertext:=" & myaddress).Exist
' Treat element
End If
BTW, if myaddress is just part of the inner text you should anchor it with wild cards on both sides:
"innertext:=.*" & myaddress & ".*"
Im currently using a script in MarsEdit.app which has a flaw. It checks the HTML document for cases where paragraphs are wrapped with <p> tags as follows:
-- If already starts with <p>, don't prepend another one
if not {oneParagraph starts with "<p>"} then
set newBodyText to newBodyText & "<p>"
end if
set newBodyText to newBodyText & oneParagraph
The problem here is that if the paragraph (or single line) is wrapped with any other HTML tag other than a <p> tag the script wraps <p> tags across the board.
Another portion of the script, which checks for ending tags at the end of the paragraph does pretty much the same thing.
-- If already ends with </p>, don't append another one
if not (oneParagraph ends with "</p>") then
set newBodyText to newBodyText & "</p>"
end if
set newBodyText to newBodyText & return
Example:
<h5>Foobar </h5>
becomes
<p><h5>Foobar </h5></p>
In another question Applescript and "starts with" operator, #lri was kind enough to provide me a solution related to it.
on startswith(txt, l)
repeat with v in l
if txt starts with v then return true
end repeat
false
end startswith
startswith("abc", {"a", "d", "e"}) -- true
and another of his recommendations can be found on this website as well Wrap lines with tags on applescript
Implementing these recommendations with MarsEdit.app is another issue for me.
I uploaded the entire script on pastebin. Pastebin: MarsEdit.app, wrap line with tags script If anyone can help me edit the script to #lri's recommendations that would be great. Thanks in advance.
AppleScript:
tell application "MarsEdit" to set txt to current text of document 1
set paras to paragraphs of txt
repeat with i from 1 to (count paras)
set v to item i of paras
ignoring white space
if not (v is "" or v starts with "<") then
set item i of paras to "<p>" & v & "</p>"
end if
end ignoring
end repeat
set text item delimiters to ASCII character 10
tell application "MarsEdit" to set current text of document 1 to paras as text
Ruby appscript:
require 'appscript'; include Appscript
doc = app('MarsEdit').documents[0]
lines = doc.current_text.get.gsub(/\r\n?/, "\n").split("\n")
for i in 0...lines.size
next if lines[i] =~ /^\s*$/ or lines[i] =~ /^\s*</
lines[i] = "<p>#{lines[i]}</p>"
end
doc.current_text.set(lines.join("\n"))
These assume that anything starting with (white space and) < is a tag.
you could do this process using another stronger language by running shell commands in applescript
basiclly you can run anything that you would in a terminal window like this
lets assume you have a test.txt file on your desktop you could run this and it would wrap all the lines with p tag
set dir to quoted form of POSIX path of (path to desktop)
set results to do shell script "cd " & dir & "
awk ' { print \"<p>\"$0\"</p>\" } ' test.txt"
and if you want to run a php file you just do
set dir to quoted form of POSIX path of 'path:to:php_folder")
set results to do shell script "cd " & dir & "
php test.php"
I am looking for a regular expression that can convert my font tags (only with size and colour attributes) into span tags with the relevant inline css. This will be done in VB.NET if that helps at all.
I also need a regular expression to go the other way as well.
To elaborate below is an example of the conversion I am looking for:
<font size="10">some text</font>
To then become:
<span style="font-size:10px;">some text</span>
So converting the tag and putting a "px" at the end of whatever the font size is (I don't need to change/convert the font size, just stick px at the end).
The regular expression needs to cope with a font tag that only has a size attribute, only a color attribute, or both:
<font size="10">some text</font>
<font color="#000000">some text</font>
<font size="10" color="#000000">some text</font>
<font color="#000000" size="10">some text</font>
I also need another regular expression to do the opposite conversion. So for example:
<span style="font-size:10px;">some text</span>
Will become:
<font size="10">some text</font>
As before converting the tag but this time removing the "px", I don't need to worry about changing the font size.
Again this will also need to cope with the size styling, font styling, and a combination of both:
<span style="font-size:10px;">some text</span>
<span style="color:#000000;">some text</span>
<span style="font-size:10px; color:#000000;">some text</span>
<span style="color:#000000; font-size:10px;">some text</span>
I am extracting basic HTML & text from CDATA tags in an XML file and then displaying them on a web-page. The text also appears in a rich-text editor so it can be edited/translated, and then saved back into a new XML file. The XML is then going to be read by a flash file, hence the need to use old-fashioned HTML.
The reason I want to convert this code is mainly for display purposes. In order to show the text sizes correctly and for it to work with my rich text editor they need to be converted to XHTML/inline CSS. The rich text editor will also generate XHTML/inline CSS that I need to convert 'back' to standard HTML before it is saved in the XML file.
I don't know a lot about XSLT transformation but I'm not sure that is what I need for this, or it might be more than I need right now, but please correct me if I'm wrong (and point me in the direction of any helpful links you may have on it).
I know the temptation will be to tell me a number of different ways to set up my code to do what I want but there are so many other permutations I haven't even mentioned which have forced me down this route, so literally all I want to do is convert a string containing standard HTML to XHTML/inline CSS, and then the same but the other way round.
Since some people have already given you warnings I'll skip ahead to the regex solution.
First off, I'll lay out a couple of assumptions that aren't set in stone but allow the problem to be approached as you presented it without me doing extra work:
You can use LINQ (otherwise this will need to be updated)
Font/Span tags will be in lowercase (font and span not FONT or SpAn)
Each style attribute value will be properly formatted, ending with a semi-colon ; similar to your samples
Case-sensitivity can be worked in rather simply via the RegexOptions.IgnoreCase although, in turn, the dictionary values will need to be stored as ToLower to keep everything constant when the values are later accessed. The 3rd point ensures splitting text doesn't go haywire.
Below is a sample program that demonstrates the replacements.
Sub Main
Dim inputs As String() = { _
"<font size=""10"">some text</font>", _
"<font color=""#000000"">some text</font>", _
"<font size=""10"" color=""#000000"">some text</font>", _
"<font color=""#000000"" size=""10"">some text</font>", _
"<font size=""10"">some text</font> other text <font color=""#000000"">some text</font>", _
"<span style=""font-size:10px;"">some text</span>", _
"<span style=""color:#000000;"">some text</span>", _
"<span style=""font-size:10px; color:#000000;"">some text</span>", _
"<span style=""color:#000000; font-size:10px;"">some text</span>", _
"<span style=""color:#000000; font-size:10px;"">some text</span> other <font color=""#000000"" size=""10"">some text</font>" _
}
Dim pattern As String = "<(?<Tag>font|span)\b(?<Attributes>[^>]+)>(?<Content>.+?)</\k<Tag>>"
Dim rx As New Regex(pattern)
For Each input As String In inputs
Dim result As String = rx.Replace(input, AddressOf TransformTags)
Console.WriteLine("Before: " & input)
Console.WriteLine("After: " & result)
Console.WriteLine()
Next
End Sub
Public Function TransformTags(ByVal m As Match) As String
Dim rx As New Regex("(?<Key>\b[a-zA-Z]+)=""(?<Value>.+?)""")
Dim attributes = rx.Matches(m.Groups("Attributes").Value).Cast(Of Match)() _
.ToDictionary(Function(attribute) attribute.Groups("Key").Value, _
Function(attribute) attribute.Groups("Value").Value)
If m.Groups("Tag").Value = "font" Then
Dim newAttributes = String.Join("; ", attributes.Select(Function(item) _
If(item.Key = "size", "font-size", item.Key) _
& ":" _
& If(item.Key = "size", item.Value & "px", item.Value)) _
.ToArray()) _
& ";"
Return "<span style=""" & newAttributes & """>" & m.Groups("Content").Value & "</span>"
Else
Dim newAttributes = String.Join(" ", attributes("style") _
.Split(New Char() {";"c}, StringSplitOptions.RemoveEmptyEntries) _
.Select(Function(s) _
s.Trim().Replace("px", "").Replace("font-", "").Replace(":", "=""") _
& """") _
.ToArray())
Return "<font " & newAttributes & ">" & m.Groups("Content").Value & "</font>"
End If
End Function
If you have any questions let me know. Some enhancements can be made if a large amount of text is expected to be processed. For example, the regex object in the TransformTags method can be moved to the class level so it isn't recreated on every transformation.
EDIT: Here's the explanation of the first pattern: <(?<Tag>font|span)\b(?<Attributes>[^>]+)>(?<Content>.+?)</\k<Tag>>
<(?<Tag>font|span)\b - opening < and matches the font or span tag and uses a named group of Tag. The \b matches a word boundary to ensure nothing beyond the tag names specified are matched.
(?<Attributes>[^>]+)> - named group, Attributes, matches everything else in the tag as long as it is not a > symbol, then it matches the closing >
(?<Content>.+?) - named group, Content, matches anything between the tag
</\k<Tag>> - matches the closing tag by back-referencing the Tag group
The second pattern is used to match key-value pairs for the attributes: (?<Key>\b[a-zA-Z]+)=""(?<Value>.+?)""
(?<Key>\b[a-zA-Z]+) - named group, Key, matches any word (alphabets) starting at a word boundary
="" - matches the equal symbol and opening quotation
(?<Value>.+?) - named group, Value, matches anything up till the closing quotation mark. It is non-greedy by specifying the ? symbol after the + symbol. It could've been [^""]+ similar to how the Attributes group was handled in the first pattern.
"" - matches the closing quotation
I don't think regular expressions are the way to go for this problem.
Stick to XML based technologies, such as XSLT to do the transformation.
You shouldn't try to parse HTML with regex. Use XML parsing instead.
I have found a solution to this issue. However it is not one that involves using a regular expression. Though I am very interested in the idea of creating a custom program in and GUI creation tool to accomplish this. The link below will provide the easiest solution to convert any deprecated font tags to inline span tags. This is a crucial and awesome tool.
http://tinymce.moxiecode.com/tryit/full.php
Clicking on html will show the html code for the message. Then you can replace that with the html that has the deprecated <font> tags and they will be converted to inline <span> tags.
It might a good idea to explain why you need to do this, as unless there's a particular goal, this seems to turn one kind of non-semantic code into another kind of non-semantic code.
Might the time be better spent converting to separate HTML and CSS code, based on class and id attributes?
I agree with both comments saying xslt should be used for xml transformation and that style shouldn't be mixed in html... but here is a starting point for your regex (perl, I don't know any VB but it shouldn't be too far) if you're in a hurry :
's/<font(.*)size="([^ ]*)"(.*)color="([^ ]*)"(.*)<\/font>/<span$1style="font-size:$2px;color:$4"$3$5<\/span>/g'
I don't think you can do this in one regex, this one handles the case where size comes before color, you can derive the 3 missing regex from here...