在线精品亚洲一区二区三区 ,无码天堂va亚洲va在线va,亚洲伊人色一综合网

ValSprr

Thu, 27 Dec 2018 02:24:00 GMT

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

萍水盔R�?/a> 2018-12-27 10:24 发表评论

Rdoc

Thu, 27 Dec 2018 02:21:00 GMT

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

萍水盔R�?/a> 2018-12-27 10:21 发表评论

cheat excel for comma

Tue, 27 Nov 2018 06:16:00 GMT

Here's a "cheat" for the comma that you want:

When you hard code the data validation list, instead of a comma in your entry (Boston, MA) , use this key combination: Alt+0130

It will display a comma in the data validation list, as you requested, BUT, it isn't a "real" comma, so it will be ignored if you search for the string - Boston, MA - in the other parts of the spreadsheet...Or if you try to use the ouput of the data validation selection to lookup matching values elsewhere in your workbook...

But if you are hard-coding your data validation list, I assume that you aren't planning to use it to reference other places in the workbook, right?

萍水盔R�?/a> 2018-11-27 14:16 发表评论

Ticket

Thu, 20 Sep 2018 01:49:00 GMT

BODY1

REGX

TIT

BODY2

LUD

SEQ

ATN

STS

REGX1

REGX2

CATA

ENDR

REV1

REV2

Xx Xy EmXtctReq EmXtctReqNs ChkSent ChkFrom ChkPriority ChkFeq ChkSupport SybInsTkt

Xx Uz InsFlow

Xx Uz EmXtctAppr ChkSent ChkFrom InsFlow

Uz #iSprr InsAttribute EmMt

Xtct Xx EmXtctReq EmXtctReqNs #EmXtctScrpNs

Xtct Xx EmXtctReq EmXtctReqNs #EmXtctScrpNsCsp

#Dbo LstFilO Xj Xx Rd2Cmd SqlXtctIns RplFil #iCp

RfshTsk PttyRun

Um RfshTsk PttyLSLATEST Xm RfshTsk RfshTsk #PttyRegx

#PttyMv Um RfshTsk PttyLSFIRST

萍水盔R�?/a> 2018-09-20 09:49 发表评论

Learning

Sun, 18 Mar 2018 10:27:00 GMT

https://cn.vuejs.org/v2/guide/comparison.html

萍水盔R�?/a> 2018-03-18 18:27 发表评论

Some useful command

Fri, 02 Feb 2018 02:32:00 GMT

Checking JDK path and version
which java (linux)
for %i in (java.exe) do @echo. %~$PATH:i (windows)
java -version
echo %JAVA_HOME%

Checking python version
python -V

萍水盔R�?/a> 2018-02-02 10:32 发表评论

oracle jdk 定期下蝲更新

Thu, 20 Apr 2017 10:25:00 GMT

jdk 8u131
http://www.oracle.com/technetwork/java/javase/downloads/jdk8-downloads-2133151.html

萍水盔R�?/a> 2017-04-20 18:25 发表评论

Setup SVN service in windows

Sun, 16 Apr 2017 01:47:00 GMT

SVN service 有两�U�模�?Daemon �?Windows Service�?br />在没有admin right的情况下只能用前者�?br />本章描述的是�W�二�U?br />1. 下蝲安装文�g
https://sourceforge.net/projects/win32svn/
安装目录�Q�C:\Services\Subversion
手动创徏目录�Q�C:\Data\svnserve

2. cmd run
C:\Services\Subversion\bin\svnadmin.exe create C:\Data\svnserve

3. cmd run by administrator
sc create svnserve binpath= "C:\Services\Subversion\bin\svnserve.exe --service -r C:\Data\svnserve" displayname= "Subversion Server" depend=Tcpip start=auto

4. config 3 files as below
    1) C:\Data\svnserve\conf\authz
    2) C:\Data\svnserve\conf\passwd
    3) C:\Data\svnserve\conf\svnserve.conf

5. run services.msc to startup the service manually at the first time. (搞定)

6. go to eclipse to install subcplise plug-ins to test the installation.

一直以来都是用�q�个package�Q�从1.6 用到 1.8。如果有更好的方案欢�q�指炏V�?/div>

萍水盔R�?/a> 2017-04-16 09:47 发表评论

3 ��?SSD 评测

Sat, 08 Apr 2017 07:53:00 GMT

最�q�淘了几块SSD�Q�不同牌子，定w��也不同，购买的时间先后也不太一��P��蛋素�Q�本人感觉好长一�D�|��间SSD的�h(hu��n)格都徘徊在一个高位上�?4G那块�q�是二手的。当然测试环境不大相同。主要也是�ؓ(f��)了读者了解一下情��c��所以附上购买的��h��l�看官参考之�?br />219 RMB 90G�Q�Score: 1268�Q?br />

180 RMB 64G (Score: 300) �q�是二手�Q�但是用户体验好像还可以�?br />

290 RMB 128G (Score: 783)

萍水盔R�?/a> 2017-04-08 15:53 发表评论