asp.net查看页面中的版权文本
各位, 寻求社区的帮助 我必须在顶部的所有aspx/ascx/母版页中添加版权文本 版权文本示例如下所示-asp.net查看页面中的版权文本,asp.net,visual-studio-2010,Asp.net,Visual Studio 2010,各位, 寻求社区的帮助 我必须在顶部的所有aspx/ascx/母版页中添加版权文本 版权文本示例如下所示- <!-- © 2014 xyz company .. .. . .. ........ ........ ............................. --> 此版权文本需要添加为文件上的注释。 当我尝试使用powershell/macro添加此版权文本时,我的页面编码将更改为ANSI。哪个实习生在合并/检查文件时会遇到麻烦或说麻烦。问题是“)
<!-- © 2014 xyz company .. .. . .. ........ ........
.............................
-->
此版权文本需要添加为文件上的注释。
当我尝试使用powershell/macro添加此版权文本时,我的页面编码将更改为ANSI。哪个实习生在合并/检查文件时会遇到麻烦或说麻烦。问题是“)”字符
Option Strict Off
Option Explicit Off
Imports System
Imports EnvDTE
Imports EnvDTE80
Imports EnvDTE90
Imports EnvDTE90a
Imports EnvDTE100
Imports System.Diagnostics
Public Module RecordingModule
Sub IterateFiles()
Dim solution As Solution =
DTE.Solution
For Each prj As Project In solution.Projects
IterateProjectFiles(prj.ProjectItems)
Next
End Sub
Private Sub IterateProjectFiles(ByVal prjItms As ProjectItems)
For Each file As ProjectItem In prjItms
If file.SubProject IsNot Nothing Then
AddHeaderToItem(file)
IterateProjectFiles(file.ProjectItems)
ElseIf file.ProjectItems IsNot Nothing AndAlso file.ProjectItems.Count > 0 Then
AddHeaderToItem(file)
IterateProjectFiles(file.ProjectItems)
Else
AddHeaderToItem(file)
End If
Next
End Sub
Private Sub AddHeaderToItem(ByVal file As ProjectItem)
DTE.ExecuteCommand("view.SolutionExplorer")
If file.Name.EndsWith(".aspx") OrElse file.Name.EndsWith(".ascx") OrElse file.Name.EndsWith(".Master") Then
file.Open()
file.Document.Activate()
AddHeader()
file.Document.Save()
file.Document.Close()
End If
End Sub
Private Sub AddHeader()
Dim cmtHeader As String = "<!-- "
Dim cmtCopyright As String = "Copyright © 2014 xyz company"
Dim cmtFooter As String = " -->"
Dim cmt = "//"
DTE.UndoContext.Open("Header Comment")
Dim ts As TextSelection = CType(DTE.ActiveDocument.Selection, TextSelection)
ts.StartOfDocument()
ts.Text = String.Format(cmtHeader, cmt)
ts.NewLine()
ts.Text = String.Format(cmtCopyright)
ts.NewLine()
ts.Text = String.Format(cmtFooter)
ts.NewLine()
DTE.UndoContext.Close()
End Sub
End Module
选项严格关闭
选项显式关闭
导入系统
进口环境
进口环境80
进口EnvDTE90
进口EnvDTE90a
进口环境数据100
导入系统。诊断
公共模块记录模块
子迭代器文件()
暗溶液作为溶液=
DTE.解决方案
对于每个prj作为解决方案中的项目。项目
迭代项目文件(prj.ProjectItems)
下一个
端接头
私有子迭代项目文件(ByVal PRJITM作为项目项)
将每个文件作为PRJITM中的项目项
如果file.subject不是空的,那么
AddHeaderToItem(文件)
迭代项目文件(file.ProjectItems)
ElseIf file.ProjectItems不是空的,而且file.ProjectItems.Count>0
AddHeaderToItem(文件)
迭代项目文件(file.ProjectItems)
其他的
AddHeaderToItem(文件)
如果结束
下一个
端接头
私有子AddHeaderToItem(ByVal文件作为ProjectItem)
DTE.ExecuteCommand(“view.SolutionExplorer”)
如果file.Name.EndsWith(“.aspx”)或lse file.Name.EndsWith(“.ascx”)或lse file.Name.EndsWith(“.Master”),则
file.Open()文件
file.Document.Activate()文件
AddHeader()
file.Document.Save()文件
file.Document.Close()文件
如果结束
端接头
私有子AddHeader()
Dim cmtHeader As String=“”
Dim cmt=“/”
DTE.UndoContext.Open(“标题注释”)
将ts设置为text Selection=CType(DTE.ActiveDocument.Selection,text Selection)
ts.StartOfDocument()
ts.Text=String.Format(cmtHeader,cmt)
t.NewLine()
ts.Text=String.Format(cmtCopyright)
t.NewLine()
ts.Text=String.Format(cmtFooter)
t.NewLine()
DTE.UndoContext.Close()
端接头
端模块
请将以上宏代码归档
此外,这些文件具有不同的字符编码-utf-8和utf-8与BOM。所以我也应该能够保留编码
请告诉我您需要更多信息。问题似乎是©的。所以我必须用(c)来代替这个。测试正常。您能分享您的宏吗?为什么不使用
©代码>,这将是正确的编码。为什么要将它们添加到ASPX页面?母版页在呈现给客户机时与ASPX合并。手动将其添加到母版页,就完成了。似乎使用PowerShell或宏对于您需要完成的任务来说是过火了。@mason每个查看页面都需要有此版权注释。这就是为什么要将此添加为注释我需要使用powershell/macro将其添加到所有文件中。你没有理解我的观点。ASPX页面在呈现给客户机时与母版页合并。因此,您不需要将其添加到所有ASPX页面,只需添加顶级母版页和任何没有母版页的ASPX页面即可。@mason ok。假设我同意。但问题仍然存在,它将母版页中的编码更改为ANSI。有人帮忙吗?