我正在尝试在当前目录中打印所有pdf.当我在cmd(singlepdf.sh)中调用这个bash脚本时:
'"C:\Program Files (x86)\Adobe\Reader 10.0\Reader\AcroRd32.exe"' /t Gemeinde_348_BioID_842_alt.pdf一切正常.
multiplepdfs.sh使用此内容致电时:
declare -a pdfs=(*.pdf)
for pdf in ${pdfs[@]}; do
echo -e "\nprinting **$pdf** with AcroRd32.exe...\n"
'"C:\Program Files (x86)\Adobe\Reader 10.0\Reader\AcroRd32.exe"' /t $pdf
sleep 3
done
Run Code Online (Sandbox Code Playgroud)
echo显示文件在循环中正确处理 - 但后来我得到了错误 "C:\Program Files (x86)\Adobe\Reader 10.0\Reader\AcroRd32.exe": No such file or directory
有人可以帮忙解决这个问题吗?
编辑: BTW,我安装了msys mingw
D <- "06.12.1948" # which is dd.mm.yyyy
as.Date(D, "%d.%m.%y") # convert to date
[1] "2019-12-06" # ????
Run Code Online (Sandbox Code Playgroud)
我错过了什么?
Sys.getlocale(category ="LC_ALL")[1]"LC_COLLATE = German_Austria.1252; LC_CTYPE = German_Austria.1252; LC_MONETARY = German_Austria.1252; LC_NUMERIC = C; LC_TIME = German_Austria.1252"
如何br在以下行中的标记后提取文本:
<div id='population'>
The Snow Leopard Survival Strategy (McCarthy <em>et al.</em> 2003, Table
II) compiled national snow leopard population estimates, updating the work
of Fox (1994). Many of the estimates are acknowledged to be rough and out
of date, but the total estimated population is 4,080-6,590, as follows:<br>
<br>
Afghanistan: 100-200?<br>
Bhutan: 100-200?<br>
China: 2,000-2,500<br>
India: 200-600<br>
Kazakhstan: 180-200<br>
Kyrgyzstan: 150-500<br>
Mongolia: 500-1,000<br>
Nepal: 300-500<br>
Pakistan: 200-420<br>
Russia: 150-200<br>
Tajikistan: 180-220<br>
Uzbekistan: 20-50
</div>
Run Code Online (Sandbox Code Playgroud)
我得到了:
xpathSApply(h, '//div[@id="population"]', xmlValue) …Run Code Online (Sandbox Code Playgroud) 我匹配并替换前面和后面有空格的4位数字:
str12 <- "coihr 1234 &/()= jngm 34 ljd"
sub("\\s\\d{4}\\s", "", str12)
[1] "coihr&/()= jngm 34 ljd"
Run Code Online (Sandbox Code Playgroud)
但是,每次尝试反转这个并提取数字都会失败.我想要:
[1] 1234
Run Code Online (Sandbox Code Playgroud)
有人有线索吗?
ps:我知道怎么用{stringr}来做,但我想知道是否只能用{base}来实现它.
require(stringr)
gsub("\\s", "", str_extract(str12, "\\s\\d{4}\\s"))
[1] "1234"
Run Code Online (Sandbox Code Playgroud) 如何在R中执行stringsplit()?当没有由破折号分隔的名字时,停止分裂.保持结果中给出的右侧子字符串.
a <- c("tim/tom meyer XY900 123kncjd", "sepp/max/peter moser VK123 456xyz")
# result:
c("tim meyer XY900 123kncjd", "tom meyer XY900 123kncjd", "sepp moser VK123 456xyz", "max moser VK123 456xyz", "peter moser VK123 456xyz")
Run Code Online (Sandbox Code Playgroud) 如何转换字符串
t <- c("00:00:0.00", "00:00:0.34")
Run Code Online (Sandbox Code Playgroud)
变成一个数字?尝试了几种方法 - 但没有一种方法有效..
我尝试调用从VBS VBA子程序与VBS传递一个字符串变量VBA,却找不到此时,相应的语法:
'VBS:
'------------------------
Option Explicit
Set ArgObj = WScript.Arguments
Dim strPath
mystr = ArgObj(0) '?
'Creating shell object
Set WshShell = CreateObject("WScript.Shell")
'Creating File System Object
Set objFSO = CreateObject("Scripting.FileSystemObject")
'Getting the Folder Object
Set ObjFolder = objFSO.GetFolder(WshShell.CurrentDirectory)
'Getting the list of Files
Set ObjFiles = ObjFolder.Files
'Creat a Word application object
Set wdApp = CreateObject("Word.Application")
wdApp.DisplayAlerts = True
wdApp.Visible = True
'Running macro on each wdS-File
Counter = 0
For Each objFile in objFiles
If UCase(objFSO.GetExtensionName(objFile.name)) = "DOC" …Run Code Online (Sandbox Code Playgroud)