Ubuntu18.04必備的22款軟件(安裝詳解) - 知乎ubuntu 下安裝windows的exe應(yīng)用程序_weixin_39127054的博客-CSDN博客_ubuntu安裝exeUbuntu 20.04 LTS 最全 國內(nèi)源 持續(xù)更新 敬請(qǐng)期待_weixin_44302833的博客-CSDN博客_ubuntu 20.04 源ubuntu20.04安裝記錄以及配置與美化 – 寡人不吃醋寫給工程師的 Ubuntu 20.04 最佳配置指南 - 少數(shù)派盤點(diǎn)那些適配Linux的國產(chǎn)常用軟件 - luoyesiqiu - 博客園Linux系統(tǒng)裝機(jī)必備的10款應(yīng)用軟件 - 里維斯社ubuntu 15.10 安裝deepin商店 - 簡書如何在Ubuntu上使用SSR客戶端科學(xué)上網(wǎng) - 作業(yè)部落 Cmd Markdown 編輯閱讀器
Public Sub ValSprr()
If testing Then Exit Sub
Dim currentRow As Integer
currentRow = ActiveCell.row
Dim chkResult As Boolean
chkResult = True
Dim xUrl As String
xUrl = Cells(currentRow, 13)
Dim sprrTxt As String
sprrTxt = RemoveBlankLine(HtmlToText(GetHtmlByIe(xUrl))) & Chr(10)
PrintLog sprrTxt
Dim sprrCmd As String
'sprrCmd = CutStrByStartEnd(sprrTxt, "pls run ", ".")
sprrCmd = SearchRegxKwInStr(sprrTxt, "(/hpen/omniprod/SPRR/.*/PT_SPRR[0-9]{5})", False, False)
'MsgBox sprrCmd
Dim sprrStatus As String
'sprrCmd = CutStrByStartEnd(sprrTxt, "pls run ", ".")
sprrStatus = SearchRegxKwInStr(sprrTxt, "Status: (.*) \(View Workflow\)", False, False)
'Dim runAnyTime As String
'runAnyTime = SearchRegxKwInStr(sprrTxt, "Start Run Any Time: \r\n(.*) \r\n", True, False)
Dim i As Integer
Dim sprrSurvey As String
sprrSurvey = CutStrByStartEnd(sprrTxt, Chr(13) & Chr(10) & "None Labels " & Chr(13) & Chr(10), Chr(13) & Chr(10) & "AIAPT Application: ", False, False)
Dim sprrSurveys As Variant
sprrSurveys = Split(sprrSurvey, Chr(13) & Chr(10))
Dim sprrSurveyStr As String
For i = 0 To UBound(sprrSurveys)
If i Mod 2 = 1 Then
sprrSurveyStr = sprrSurveyStr & sprrSurveys(i) & Chr(13) & Chr(10)
End If
Next
Cells(currentRow, 21) = sprrSurveyStr
Dim details As String
details = CutStrByStartEnd(sprrTxt, "Special Run Details: " & Chr(13) & Chr(10) & "Hide " & Chr(13) & Chr(10), "Show", False, False)
Dim justification As String
justification = CutStrByStartEnd(sprrTxt, "Justification with IT Head's approval and attach assessment approved by data owner: " & Chr(13) & Chr(10) & "Hide " & Chr(13) & Chr(10), "Show", False, False)
Dim assignee As String
assignee = SearchRegxKwInStr(sprrTxt, " (.*) Assign to me", False, False)
Dim reporter As String
reporter = SearchRegxKwInStr(sprrTxt, "Reporter:\r\n (.*) \r\n", True, False)
Cells(currentRow, 5) = details
Cells(currentRow, 6) = justification
Cells(currentRow, 17) = sprrStatus
Cells(currentRow, 20) = assignee
Cells(currentRow, 22) = reporter
Dim attachment As String
attachment = CutStrByStartEnd(sprrTxt, Chr(13) & Chr(10) & "Attachments" & Chr(13) & Chr(10), Chr(13) & Chr(10) & "Activity", False, False)
Dim attachments As Variant
attachments = Split(attachment, Chr(13) & Chr(10))
Dim attachmentStr As String
For i = 0 To UBound(attachments)
If i Mod 4 = 0 Then
attachmentStr = attachmentStr & attachments(i) & Chr(13) & Chr(10)
End If
Next
Cells(currentRow, 23) = attachmentStr
Dim mailTitle As String
mailTitle = Cells(currentRow, 8)
Dim strRegx As String
strRegx = "(PT_SPRR[0-9]{5})"
Dim str1 As String
str1 = SearchRegxKwInStr(mailTitle, strRegx, False, False)
Dim str2 As String
str2 = SearchRegxKwInStr(sprrCmd, strRegx, False, False)
Dim cmdDateStr As String
Dim cmdDate As Date
Dim mailDate As Date
cmdDateStr = CutStrByStartEnd(sprrCmd, "/hpen/omniprod/SPRR/", "/")
cmdDateStr = Left(cmdDateStr, 4) & "-" & Right(Left(cmdDateStr, 6), 2) & "-" & Right(cmdDateStr, 2)
cmdDate = CDate(cmdDateStr)
mailDate = Cells(currentRow, 12)
If str1 <> str2 Then
chkResult = chkResult And False
'MsgBox str1
'MsgBox str2
End If
If Abs(mailDate - cmdDate) > 2 Then
'MsgBox "fail2"
chkResult = chkResult And False
End If
'Cells(currentRow, 21) = runAnyTime
If chkResult Then
MyMsgBox "Jira checking completed with positive result.", 3
Else
MyMsgBox "Failed to Jira validation.", 3
End If
End Sub
Public Sub Rdoc()
If testing Then Exit Sub
On Error GoTo ErrorHandler
Dim currentRow As Integer
currentRow = ActiveCell.row
Dim dateStr As String
dateStr = format(Date, "yyyyMMdd")
Dim localPath As String
localPath = Cells(currentRow, 9)
Dim filePath As String
Dim wa As Variant
Dim wd As Word.document
If InStr(Cells(currentRow, 11), ".doc") > 0 Then
filePath = Cells(currentRow, 9) & Cells(currentRow, 11)
Set wa = CreateObject("Word.Application")
wa.Visible = False
Set wd = wa.Documents.Open(filePath)
Cells(currentRow, 10) = wd.Content.text
wd.Close savechanges:=False
wa.Quit
Set wa = Nothing
Else
Dim wildcard As String
wildcard = "*.doc*"
Dim fileText As String
Dim fso As Object
Dim objFolder As Object
Dim myFolder As Object
Dim myFile As Object
Set fso = CreateObject("Scripting.FileSystemObject")
If fso.FolderExists(localPath) Then
Set objFolder = fso.getfolder(localPath)
For Each myFolder In objFolder.SubFolders
For Each myFile In myFolder.files
If myFile.Name Like wildcard Or myFile.Name = wildcard Then
'MsgBox myFile.path
Set wa = CreateObject("Word.Application")
wa.Visible = False
Set wd = wa.Documents.Open(myFile.path)
fileText = fileText & wd.Content.text
wd.Close savechanges:=False
wa.Quit
Set wa = Nothing
End If
Next
Next
Set objFolder = Nothing
End If
Set fso = Nothing
Cells(currentRow, 10) = Cells(currentRow, 10) & fileText
End If
ErrorHandler:
If Err.Number <> 0 Then
MyMsgBox Err.Number & " " & Err.Description, 10
End If
End Sub