全能工具箱 - VBScript代码格式化工具

原始VBScript代码

Function CalculateDiscount(amount, customerType)
If amount <= 0 Then
CalculateDiscount = 0
Exit Function
End If
Select Case customerType
Case "Regular"
discount = 0.05
Case "Premium"
discount = 0.1
Case "VIP"
discount = 0.15
Case Else
discount = 0
End Select
If amount > 1000 Then
discount = discount + 0.05
End If
CalculateDiscount = amount * discount
End Function
Sub ProcessOrder(orderId)
On Error Resume Next
Set conn = CreateObject("ADODB.Connection")
conn.Open "Provider=SQLOLEDB;Data Source=localhost;Initial Catalog=Orders;"
Set rs = conn.Execute("SELECT * FROM Orders WHERE OrderID = " & orderId)
If Not rs.EOF Then
orderAmount = rs("Amount")
customerId = rs("CustomerID")
Set customerRs = conn.Execute("SELECT * FROM Customers WHERE CustomerID = " & customerId)
If Not customerRs.EOF Then
customerType = customerRs("CustomerType")
discount = CalculateDiscount(orderAmount, customerType)
finalAmount = orderAmount - discount
conn.Execute "UPDATE Orders SET FinalAmount = " & finalAmount & " WHERE OrderID = " & orderId
End If
End If
rs.Close
conn.Close
Set rs = Nothing
Set conn = Nothing
End Sub

AI全能工具箱

VBScript代码格式化工具

原始VBScript代码

格式化后代码

格式化选项

代码优化

命名规范

其他选项

VBScript代码示例

VBScript语法检查工具（开发中）