Lotus notes 如何使用Lotus脚本更改alterrowcolor和标题样式？

我的要求是，我有数百个视图。我想让它们成为标准颜色和UI。我使用Simple通过NotesViewColumn类更改列标题和列值的字体颜色。但我不知道哪个类具有操作栏和视图替换颜色和Heaer样式等的属性

在javascript中也是受欢迎的，但它应该作为设计器级别更改其属性

提前感谢

您有3种选择：

最简单的一个：从Ytria购买。你花不到一个小时来整理你的观点

创建一个视图，使其外观符合您希望视图的外观，然后浏览脚本中的所有视图，重命名它们，基于视图模板创建新视图，从旧视图复制视图列，并调整视图选择公式（全部在LotusScript中）

在DXL中导出视图，并运行一些XSLT或搜索/替换来调整属性

希望这对您有所帮助您有3个选择：

最简单的一个：从Ytria购买。你花不到一个小时来整理你的观点

创建一个视图，使其外观符合您希望视图的外观，然后浏览脚本中的所有视图，重命名它们，基于视图模板创建新视图，从旧视图复制视图列，并调整视图选择公式（全部在LotusScript中）

在DXL中导出视图，并运行一些XSLT或搜索/替换来调整属性

---

希望对您有所帮助

我也可以推荐ezView。修改视图是小菜一碟。我还使用actionBarEZ跨应用程序修改动作栏。

---

我在博客中介绍了我在Domino Designer中使用的几种不同的开发工具，您可以在这里找到条目：

我还可以推荐ezView。修改视图是小菜一碟。我还使用actionBarEZ跨应用程序修改动作栏。

---

我在博客中介绍了我在DominoDesigner中使用的几种不同的开发工具，您可以在这里找到条目：

我刚刚运行了这个代理，将我的（小型）测试数据库中的所有视图更改为具有备用行颜色，它起到了作用

Sub Initialize
Dim session As New NotesSession
Dim db As NotesDatabase
Dim exporter As NotesDXLExporter
Dim importer As NotesDXLImporter

Dim out As String
Dim infile As string
Dim pointer As long
Dim filenum As Integer
Dim altrow As integer


Dim unid As String
Dim doc As notesdocument
Set db = session.currentdatabase
Set exporter = session.Createdxlexporter
Set importer = session.Createdxlimporter

Dim count As Integer
count = 1
ForAll v In db.views
    unid = v.UniversalID
    Set doc = db.getdocumentbyunid(unid)
    out =  exporter.Export(doc)
    altrow = instr(out, "altrowcolor")
    If altrow > 0 Then
        pointer = InStr(altrow, out, "=")
        out = Left(out,pointer) & "'#f7f7f7'" & Mid(out, pointer+10)
    else
        pointer = InStr(out, "bgcolor=")
        pointer = InStr(pointer, out, " ")
        out = Left(out,pointer) & "altrowcolor='#f7f7f7' " & Mid(out, pointer+1)
    End if
    Call importer.setinput(out)
    Call importer.setoutput(db)
    importer.Designimportoption = 5
    importer.Documentimportoption = 5
    Call importer.Process()
    out = ""
    infile = ""
    count = count + 1
End ForAll
Print count & " views processed"
End Sub

如果您的视图设计要大得多，您可能希望使用NotesStream而不是字符串来表示“out”。在这种情况下，从帮助文件中，我认为必须先关闭并重新打开流，然后才能使用它进行导入

为了进一步研究，我建议将“out”写入文件，并检查xml以找到其他“隐藏”参数。

---

玩得开心，Phil，我刚刚运行了这个代理，将我（小型）测试数据库中的所有视图更改为具有备用行颜色，并且它工作了

Sub Initialize
Dim session As New NotesSession
Dim db As NotesDatabase
Dim exporter As NotesDXLExporter
Dim importer As NotesDXLImporter

Dim out As String
Dim infile As string
Dim pointer As long
Dim filenum As Integer
Dim altrow As integer


Dim unid As String
Dim doc As notesdocument
Set db = session.currentdatabase
Set exporter = session.Createdxlexporter
Set importer = session.Createdxlimporter

Dim count As Integer
count = 1
ForAll v In db.views
    unid = v.UniversalID
    Set doc = db.getdocumentbyunid(unid)
    out =  exporter.Export(doc)
    altrow = instr(out, "altrowcolor")
    If altrow > 0 Then
        pointer = InStr(altrow, out, "=")
        out = Left(out,pointer) & "'#f7f7f7'" & Mid(out, pointer+10)
    else
        pointer = InStr(out, "bgcolor=")
        pointer = InStr(pointer, out, " ")
        out = Left(out,pointer) & "altrowcolor='#f7f7f7' " & Mid(out, pointer+1)
    End if
    Call importer.setinput(out)
    Call importer.setoutput(db)
    importer.Designimportoption = 5
    importer.Documentimportoption = 5
    Call importer.Process()
    out = ""
    infile = ""
    count = count + 1
End ForAll
Print count & " views processed"
End Sub

如果您的视图设计要大得多，您可能希望使用NotesStream而不是字符串来表示“out”。在这种情况下，从帮助文件中，我认为必须先关闭并重新打开流，然后才能使用它进行导入

为了进一步研究，我建议将“out”写入文件，并检查xml以找到其他“隐藏”参数。 玩得开心，菲尔