随笔 - 12  文章 - 0  trackbacks - 0
<2018年12月>
2526272829301
2345678
9101112131415
16171819202122
23242526272829
303112345

常用链接

留言簿(103)

随笔档案

文章档案

jQuery

搜索

  •  

最新评论

阅读排行榜

评论排行榜

Ubuntu18.04必备的22款软件(安装详解) - 知乎
ubuntu 下安装windows的exe应用程序_weixin_39127054的博客-CSDN博客_ubuntu安装exe
Ubuntu 20.04 LTS 最全 国内源 持续更新 敬请期待_weixin_44302833的博客-CSDN博客_ubuntu 20.04 源
ubuntu20.04安装记录以及配置与美化 – 寡人不吃醋
写给工程师的 Ubuntu 20.04 最佳配置指南 - 少数派
盘点那些适配Linux的国产常用软件 - luoyesiqiu - 博客园
Linux系统装机必备的10款应用软件 - 里维斯社
ubuntu 15.10 安装deepin商店 - 简书
如何在Ubuntu上使用SSR客户端科学上网 - 作业部落 Cmd Markdown 编辑阅读器
posted @ 2021-01-07 11:44 萍水相逢 阅读(133) | 评论 (0)编辑 收藏
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
posted @ 2018-12-27 10:24 萍水相逢 阅读(160) | 评论 (0)编辑 收藏
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
posted @ 2018-12-27 10:21 萍水相逢 阅读(111) | 评论 (0)编辑 收藏