
使用链接器将我们的目标代码链接成一个可执行程序。另外,
我们使用一些程序在计算机中输入源代码文本并且编辑它。这些是最初的和最重要的工具,
它们构成程序员的工具集合或“程序开发环境”。
如果你使用的是命令行窗口,
就像很多专业程序员所做的那样,
你将不得不自己来编写编译和链接命令。如果你使用IDE(“交互式开发环境”或“集成式开发环境”),
就像很多程序员所做的那样,
简单地点击正确按钮就可以完成这个工作。附录C介绍了如何在你的C++实现中编译和链接。
IDE通常包括一个具有有用特性的编辑器,
例如用不同颜色的代码来区分你的源代码中的注释、
关键字和其他部分,
以及其他帮助你来调试代码、
编译和运行代码的功能。调试是发现程序中的错误和排除错误的活动,
你在前进的道路上会听到很多有关它的内容。
我们使用微软的Visual
C++作喑炭
⒒肪呈道
H绻
颐羌虻サ厮怠氨嘁肫鳌被蚴恰癐DE”的某些部分,
那就是所指Visual
C++系统。但是,
你可以使用一些提供最新的、
符合标准的C++实现的系统。我们所说的大多数内容(经过微小的修改)对所有的C++实现都将是正确的,
并且其代码可以在任何地方运行。在工作中,
我们使用几种不同的实现。
html代码中,普通文字链接:
(直接跳转的)<a href=">
(新页面打开的):<a href=">
链接:
(一般链接)<a href=">
<a href=">用代码编写链接转换工具。
代码(code)是程序员用开发工具所支持的语言写出来的源文件,是一组由字符、符号或信号码元以离散形式表示信息的明确的规则体系。
代码设计的原则包括唯一确定性、标准化和通用性、可扩充性与稳定性、便于识别与记忆、力求短小与格式统一以及容易修改等。
将爱心代码代入文档里就可以弄成链接了。
1、拿到有html代码的文档。
2、本地创建一个txt文件。
3、把步骤1的代码粘贴到txt文件。
4、txt文件修改后缀为html。
5、双击步骤4的html,浏览器就会显示动Private Sub Command1_Click()
Dim s As String
s = Text1Text
s = Replace(Text1Text, vbCrLf, "") '移除所有回车换行符
'Dim oRegEx As RegExp
'Set oRegEx = New RegExp
'Dim oMatches As MatchCollection
'Dim oMatch As Match
Dim oRegEx As Object
Set oRegEx = CreateObject("VBScriptRegExp")
Dim oMatches As Object
Dim oMatch As Object
With oRegEx
Global = True '全局匹配
IgnoreCase = True '忽略大小写
Pattern = "<a[^>]href=[""' ]()(:""|'| )[^> ]>([\s\S])</a>"
'提取所有A标签的正则式,小括号中是子匹配引用组第一个是 () 第二个是([\s\S])
Set oMatches = Execute(s)
If oMatchesCount >= 1 Then
Text2Text = ""
Dim sHref As String, sInnerText As String
Dim i As Integer
Dim sLink As String
'Dim colLinks As ScriptingDictionary
'Set colLinks = New ScriptingDictionary
Dim colLinks As Object
Set colLinks = CreateObject("ScriptingDictionary")
For Each oMatch In oMatches
sHref = oMatchSubMatches(0) '()
sInnerText = oMatchSubMatches(1) '([\s\S])
sInnerText = RemoveTags(sInnerText) '移除A标签(内容)中的多余标签
sInnerText = Replace(sInnerText, " ", "") '移除A标签(内容)中的所有空格
sLink = "<A href=""" & sHref & """>" & sInnerText & "</A>"
If Not colLinksExists(sLink) Then
colLinksAdd sLink, sLink
Text2Text = Text2Text & sLink & vbNewLine
End If
Next
End If
End With
Set oMatches = Nothing
Set oMatch = Nothing
Set oRegEx = Nothing
Set colLinks = Nothing
End Sub
'这个函数可以去除HTML代码中的标签
Function RemoveTags(ByVal html As String)
'Dim oRegEx As RegExp
'Set oRegEx = New RegExp
Dim oRegEx As Object
Set oRegEx = CreateObject("VBScriptRegExp")
With oRegEx
Global = True
IgnoreCase = True
Pattern = "<[^>]>"
RemoveTags = Replace(html, "")
End With
Set oRegEx = Nothing
End Function
欢迎分享,转载请注明来源:内存溢出
微信扫一扫
支付宝扫一扫
评论列表(0条)