随笔 - 12  文章 - 0  trackbacks - 0
<2013年10月>
293012345
6789101112
13141516171819
20212223242526
272829303112
3456789

常用链接

留言簿(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)编辑 收藏

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?

posted @ 2018-11-27 14:16 萍水相逢 阅读(137) | 评论 (0)编辑 收藏
HN FQ UN PS RE BODY1 REGX TIT LF BODY2 SF LUD WD CO 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
posted @ 2018-09-20 09:49 萍水相逢 阅读(108) | 评论 (0)编辑 收藏
https://cn.vuejs.org/v2/guide/comparison.html
posted @ 2018-03-18 18:27 萍水相逢 阅读(125) | 评论 (0)编辑 收藏
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
posted @ 2018-02-02 10:32 萍水相逢 阅读(568) | 评论 (0)编辑 收藏

jdk 8u131
http://www.oracle.com/technetwork/java/javase/downloads/jdk8-downloads-2133151.html
posted @ 2017-04-20 18:25 萍水相逢 阅读(187) | 评论 (0)编辑 收藏
SVN service 有两种模式 Daemon 和 Windows Service。
在没有admin right的情况下只能用前者。
本章描述的是第二种
1. 下载安装文件
https://sourceforge.net/projects/win32svn/
安装目录:C:\Services\Subversion
手动创建目录: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.

一直以来都是用这个package,从1.6 用到 1.8。如果有更好的方案欢迎指点。
posted @ 2017-04-16 09:47 萍水相逢 阅读(224) | 评论 (0)编辑 收藏
最近淘了几块SSD,不同牌子,容量也不同,购买的时间先后也不太一样,蛋素,本人感觉好长一段时间SSD的价格都徘徊在一个高位上。64G那块还是二手的。当然测试环境不大相同。主要也是为了读者了解一下情况。所以附上购买的价格给看官参考之。
219 RMB 90G(Score: 1268)



180 RMB 64G (Score: 300) 还是二手,但是用户体验好像还可以。



290 RMB 128G (Score: 783)



posted @ 2017-04-08 15:53 萍水相逢 阅读(140) | 评论 (0)编辑 收藏
Dim xlApp
Dim xlBook
Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.Workbooks.Open("C:\BAK\Test.xlsm", 0, True)

xlApp.Run "TestOutter"
xlBook.Close
xlApp.Quit


Set xlBook = Nothing
Set xlApp = Nothing

WScript.Quit
posted @ 2016-10-27 00:15 萍水相逢 阅读(140) | 评论 (0)编辑 收藏
持续更新中
Editor --> EditPlus / Notepad++ / UltraEdit
FTP client --> FlashFXP / FileZilla
SSH and telnet client --> Putty
Office 2010 --> Excel / PowerPoint / Word / OneNote
五笔输入法 --> 念青五笔 / 万能五笔
浏览器 --> IE8 / Firefox / Google Chrome / Safari / 360
IDE --> Eclipse / RAD / RTC
DB --> DB2 / MySQL
Middleware --> MQ / Websphere
OS --> Win7 / Linux / AIX / OS X
Mobile OS --> IOS / Android / S60 / WinCE / S40
Source control --> SVN / CVS
Zip and Unzip --> WinRAR / 7-Zip / BetterZip
RSS reader --> Feeddemon / Vienna
Mail client and news reader --> Windows Live Mail
GPS --> 凯立德
云存储 --> 百度云
Build & deploy --> Ant / Maven
Compare --> Beyond compare
即时翻译 --> IBM智能辞典
Programming & scripting --> Java / HTML / VBS / VBA / Shell script / Cron job / Perl script / Bat script / Javascript / SQL
Social media --> QQ / 新浪微博
Logging framework --> Log4j / Log4E / SLF4J
虚拟光驱 & 刻录 --> DAEMON Tools / Alcohol / Ashampoo Burning Studio
杀毒软件 --> Microsoft Security Essentials / Avast
中特软件 --> Psiphon / Hotspot Shield
视频播放 --> Microsoft Media Center / 完美解码
音频相关 --> Monkey's Audio
下载工具 --> 迅雷 / BitTorrent


posted @ 2013-10-22 12:27 萍水相逢 阅读(173) | 评论 (0)编辑 收藏