部署类型是否以任何方式影响应用程序?(Does the type of deploy affect the application in any way?)
我和我的团队正在尝试自动化我们的一些过程,它包括以编程方式进行远程部署。 我的一位同事问我关于JBoss部署的问题:
JBoss中的部署类型,无论是JMX还是文件系统(将应用程序包复制到deploy文件夹),都会以任何方式影响应用程序?
我知道JMX部署是临时的,而文件系统则不是。 除此之外,有什么区别吗? 我做了我的研究,但是我没有发现任何有用的东西或者我能理解的东西(我是初学者到中级的Java程序员),只是关于部署应用程序的不同方法的方法。
Peharps有人可以对此有所了解吗? 谢谢。
My team and I are trying to automatize some of our proccesses and it includes programmatically remote deployment. A colleague of mine asked me a question about JBoss' deployment:
Does the type of deploy in JBoss, be it JMX or filesystem (copy the app package to the deploy folder), affect the application in any way?
I know that JMX deployment is temporary and filesystem is not. Other than this, there is any difference? I did my research, but I didn't found anything useful or that I could understand (I'm a beginner-to-intermediate Java programmer), only how-to's about different ways to deploy an application.
Peharps someone could shed some light on this? Thank you.
原文:https://stackoverflow.com/questions/16470739
最满意答案
使用
ParamArray
,它允许您传递任意数量的参数:Function SumVisible(ParamArray WorkRng() As Variant) As Double Dim i as Integer Dim rng As Range Dim c As Range Dim total As Double For i = LBound(WorkRng) To UBound(WorkRng) Set rng = WorkRng(i) For Each c In rng If c.Rows.Hidden = False And c.Columns.Hidden = False Then total = total + c.Value End If Next c Next i SumVisible = total End Function
Use
ParamArray
, it allows you to pass any number of arguments:Function SumVisible(ParamArray WorkRng() As Variant) As Double Dim i as Integer Dim rng As Range Dim c As Range Dim total As Double For i = LBound(WorkRng) To UBound(WorkRng) Set rng = WorkRng(i) For Each c In rng If c.Rows.Hidden = False And c.Columns.Hidden = False Then total = total + c.Value End If Next c Next i SumVisible = total End Function
相关问答
更多-
数组在Excel VBA中(Array in excel vba)[2023-09-10]
学生必须声明为动态数组。 也就是说,一个数组的边界可以改变。 Dim Students(10)给出了一个数组,其边界不能改变,不能从数组中加载。 Dim Students() As Variant 加载学生: Students = Array(2,7,14,54,33,45,55,59,62,66,69) 要访问元素: Dim Inx As Long For Inx = LBound(Students) to UBound(Students) Debug.Print Students(Inx) N ... -
你很亲密: Sub arrray() Dim titles(1 To 9) As String Dim i As Long For i = 1 To 3 titles(i + 0) = "w" & i titles(i + 3) = "y" & i titles(i + 6) = "x" & i Next i For i = 1 To 9 MsgBox titles(i) Next i En ...
-
如何从另一个数组excel vba的计算中创建一个数组(How to create an array from calculations of another array excel vba)[2023-03-10]
这里是如何创建大小为n的Diff Array ReDim Diff(1 To n) As Double Dim i As Long For Each element In DataSet i = i + 1 Diff(i) = element - mean Next element 但是,我不认为这是正确的方法。 不需要Diff阵列。 你应该做的是,一旦你计算了mean和SD ,迭代DataSet数组本身,检查每个元素与均值的绝对差值,除以stdev,并将这个比率与某个阈值(比如2或3)进 ... -
总结一个数组vba(sum an array vba)[2022-07-09]
使用ParamArray ,它允许您传递任意数量的参数: Function SumVisible(ParamArray WorkRng() As Variant) As Double Dim i as Integer Dim rng As Range Dim c As Range Dim total As Double For i = LBound(WorkRng) To UBound(WorkRng) Set rng = WorkRng(i) ... -
一种解决方案是只传递数组ByRef Sub main1() Dim A(1, 3) As String Call F(A) Debug.Print A(1, 1) End Sub Sub F(ByRef x() As String) x(1, 1) = 3.14 End Sub One solution is to just pass the array ByRef Sub main1() Dim A(1, 3) As String Call F(A) ...
-
DLookup for multiple values字段返回一个由逗号(和空格)分隔的值列表的字符串,所以您应该使用Split函数将此字符串转换为数组: AuthorCol = Split(DLookup("[AllowedColours]", "tblAuthor", "[Author]= 'd'"), ", ") GenreCol = Split(DLookup("[AllowedColours]", "tblGenre", "[Genre]= '" & cmbGenre & "'"), ", ") ...
-
Vba循环通过一个数组(Vba Loop through an array)[2023-06-08]
编辑 - 固定类型和Rowno功能 'Return the row for a given value, or zero if not found Private Function RowNo(ByVal text1 As String) As Long Dim f As Range Set f = Columns(2).Find(text1, Lookat:=xlWhole) If Not f Is Nothing Then RowNo = f.Row El ... -
您不能声明具有非常量值的固定大小数组; 相反,您需要将其声明为动态数组(通过省略大小),然后将其重新定位到您想要的边界; Dim vals() As Variant ReDim vals(1 To boundary) You cannot declare a fixed size array with a non-constant value; instead you need to declare it as a dynamic array (by omitting a size) then redim ...
-
如何清空VBA中的数组?(How to empty an array in VBA?)[2023-07-20]
对于对象,只需将未定义的数组复制到变量中即可: Dim o() As Worksheet Dim v As Variant v = o o = v 对于非对象,在变量中创建一个空数组,然后更改其类型代码: Private Declare Sub GetMem2 Lib "msvbvm60" (src As Any, dest As Any) Dim i() as Long Dim v as Variant v = Array() Dim NewTypeCode As Integer NewTypeCo ... -
数组公式通过VBA(Array Formula through VBA)[2022-09-24]
这个最小的片段对我有用: Worksheets("sheet1").Range("A1:B4").FormulaArray = "=AVERAGE(C1:C5)" 这将具有从A1到B4的单元格,其显示单元格C1到C5中的数字的平均值,并且绑定到公式数组。 但问题提到了对表的结构化引用。 正如Rory所提到的,在表格中没有可能的公式数组。 如果您尝试通过手动将数组插入表中,您可以挖到地面,这是通常的非编程方式。 Excel回答:“表格中不允许使用多单元格数组公式。” ...