chr

Converting Rdata files to CSV - Error in data.frame arguments imply differing number of rows

匿名 (未验证) 提交于 2019-12-03 01:14:02
可以将文章内容翻译成中文,广告屏蔽插件可能会导致该功能失效(如失效,请关闭广告屏蔽插件后再试): 问题: I'm trying to use the R code from this answer to convert a bunch of rdata files to CSV. resave However on one of the files I'm getting this error: Error in data.frame(`2` = list(pos = c(6506L, 6601L, 21801L, 21811L, 21902L, : arguments imply differing number of rows: 7670, 9729, 114, 2422 Calls: resave ... as.data.frame -> as.data.frame.list -> eval -> eval -> data.frame I tried searching for the error message but I can't really make heads or tails of it. Was that rdata file created improperly somehow? Is there a better way I should convert

how to flatten a list of lists in R

匿名 (未验证) 提交于 2019-12-03 01:07:01
可以将文章内容翻译成中文,广告屏蔽插件可能会导致该功能失效(如失效,请关闭广告屏蔽插件后再试): 问题: The tm package extends c so that, if given a set of PlainTextDocument s it automatically creates a Corpus . Unfortunately, it appears that each PlainTextDocument must be specified separately. e.g. if I had: foolist I'd do this to get a Corpus : foocorpus I have a list of lists of 'PlainTextDocument s that looks like this: > str(sectioned) List of 154 $ :List of 6 ..$ :Classes 'PlainTextDocument', 'TextDocument', 'character' atomic [1:1] Developing assessment models Developing models .. .. ..- attr(*, "Author")= chr "John Smith" .. .. ..-

BVA将excel题库转换为word版

匿名 (未验证) 提交于 2019-12-03 00:34:01
'单选题有答案相关代码: Sub 单选有答案() Dim WdApp As Word.Application Dim owd As Word.Document Dim i, j As Integer Dim Rcount, Colcount As Integer Rcount = Sheets(1).UsedRange.Rows.Count Colcount = 7 Set WdApp = New Word.Application WdApp.Visible = True Set owd = WdApp.Documents.Add owd.Content.InsertAfter ("单选题") owd.Content.InsertAfter (Chr(10)) For i = 2 To Rcount owd.Content.InsertAfter (CStr(Sheets(1).Cells(i, 1)) + ". ") owd.Content.InsertAfter (Sheets(1).Cells(i, 2)) owd.Content.InsertAfter (Chr(10)) For j = 3 To 6 owd.Content.InsertAfter (Sheets(1).Cells(1, j) + ". " + CStr(Sheets(1).Cells(i, j)) + "

采集淘宝或天猫商品的店铺名称/商家旺旺/商品首图/商品标题

匿名 (未验证) 提交于 2019-12-03 00:09:02
一 用的QueryList库 二 安装方法 确认已经安装了composer,因为速度会很慢,可以切换到中国镜像: composer config -g repo.packagist composer https://packagist.phpcomposer.com 安装QueryList: composer require jaeger/querylist QueryList文档地址,可以了解下: http://www.querylist.cc/#one 三 需求如下 通过淘宝或天猫的商品链接,采集该商品链接对应的商品标题、商品首图、店铺名称、商家旺旺名称 四 目前的采集数据Demo可以适用于所有天猫商品+店铺名称在右边或上边的 五 代码如下 <? php include "vendor/autoload.php" ; use QL\QueryList ; function uni_decode ( $s ) { //针对部分淘宝宝贝链接的店铺名被加密进行解密处理 preg_match_all ( '/\&\#([0-9]{2,5})\;/' , $s , $html_uni ); preg_match_all ( '/[\\\%]u([0-9a-f]{4})/ie' , $s , $js_uni ); $source = array_merge ( $html_uni [ 0

特殊字符过滤(并不是很全,可以参考)

匿名 (未验证) 提交于 2019-12-02 23:34:01
public Function RSQL(strChar) If strChar = “” or IsNull(strChar) Then RSQL = “”:Exit Function Dim strBadChar, arrBadChar, tempChar, I strBadChar = “$,#,’,%,^,&,?,(,),<,>,[,],{,},/,,;,:,” & Chr(34) & “,” & Chr(0) & “”’注意这里过滤的是特殊字符 ‘Chr(34)对应的ASCII码是双引号。Chr(0)其实就是我们上传改包把空格(20)改成的00 arrBadChar = Split(strBadChar, “,”) tempChar = strChar For I = 0 To UBound(arrBadChar) tempChar = Replace(tempChar, arrBadChar(I), “”) ‘将特殊字符过滤为空 Next RSQL = tempChar End Function 文章来源: https://blog.csdn.net/kclax/article/details/90513291

linux 字符设备(一)

匿名 (未验证) 提交于 2019-12-02 21:56:30
#include <linux/init.h> #include <linux/cdev.h> #include <linux/module.h> #include <linux/fs.h> #include <linux/device.h> #include <linux/kernel.h> #include <linux/types.h> #include <asm/uaccess.h> static int data; static int chr_open (struct inode * inode, struct file * file){ printk("character device open\n"); return 0; } static int chr_release (struct inode * inode, struct file * file){ printk("character device close\n"); return 0; } ssize_t chr_read (struct file * file, char __user * buf, size_t size, loff_t * offset){ if(copy_to_user(buf, &data,sizeof(data))){ printk("copy failed\n");

阿里巴巴 Sentinel + InfluxDB + Chronograf 实现监控大屏

匿名 (未验证) 提交于 2019-12-02 21:52:03
在上一篇推文中,我们使用时序数据库 InfluxDb 做了流控数据存储,但是数据存储不是目的,分析监控预警才是最终目标,那么问题来了,如何更好的实现呢?用过阿里巴巴 Sentinel 控制台的小伙伴,是不是觉得它的控制台丑爆了,而且只有短短的五厘米,显然不能满足大部分人或者场景的使用。 sentinel-dashboard(控制台,收集数据) Influxdb(时序数据库,存储数据) Chronograf (展示控制台,显示数据并实现预警) Sentinel 控制台 和 时序数据库 Influxdb 的安装方式前面已经聊过,这里不再赘述,简单说下 Chronograf 展示控制台的安装方式,这里推荐使用 Docker 安装方式。 $ docker run -p 8888:8888 \ -v $PWD:/var/lib/chronograf \ chronograf 安装成功以后,浏览器访问 http://ip:8888 你应该看到一个欢迎页面: 然后,自行配置数据源,根据业务场景组装监控大屏。 这里根据 Sentinel 限流组件采集的数据,组装了一个简单的监控大屏,可以监控历史访问总量、最近一小时的访问量、限流数以及最近几分钟或者几小时的访问曲线等等,相比于阿里演示版是不是瞬间高大上的些许。 SELECT SUM("successQps") AS "总访问量" FROM

ch(),unichr(),ord()

℡╲_俬逩灬. 提交于 2019-12-02 17:00:01
chr()函数用一个范围在range(256)内的整数作参数,返回一个对应的字符。 >>>chr(65) 'A' unichr()跟chr()一样,只不过返回的是Unicode字符。 >>>unichr(12345) u'u3039 超出范围的报ValueErrro异常 ord()函数是chr()或unichr()的配对函数,以字符作为参数,返回ASCII数值,或者Unicode数值。 >>>ord('a') 97 for i in range(ord('a'),ord('z') + 1): print (str(i)+' '+ chr(i)) #同print (str(i)+' '+ unichr(i)) 输出: 97 a 98 b 99 c 100 d 101 e 102 f 103 g 104 h 105 i 106 j 107 k 108 l 109 m 110 n 111 o 112 p 113 q 114 r 115 s 116 t 117 u 118 v 119 w 120 x 121 y 122 z 来源: https://www.cnblogs.com/myshuzhimei/p/11756113.html

[TJOI2015]组合数学

只谈情不闲聊 提交于 2019-12-02 15:39:55
Dilworth定理:最小链覆盖数=最大点独立集 这题要求最小链覆盖,我们可以直接转化为最大独立点集来求 考虑DP 设$f[i][j]$表示当前在位置i,j时的答案,显然$f[i][j]$可以从$f[i-1][j]$和$f[i][j+1]$转移过来(反链),但是如果要是最大独立点集的话要求独立,所以还可以从$f[i-1][j+1]$这个无法到达的地方转移过来 所以有: $$f[i][j]=max\{f[i-1][j],f[i][j+1],f[i-1][j+1]+a[i][j]\}$$ 1 //张家奇怎么又AKIOI了呀,怎么CSP也满分啊...怎么清北天天给他打电话啊...怎么会有这么强的人啊 2 #include<bits/stdc++.h> 3 #define int long long 4 #define writeln(x) write(x),puts("") 5 #define writep(x) write(x),putchar(' ') 6 using namespace std; 7 inline int read(){ 8 int ans=0,f=1;char chr=getchar(); 9 while(!isdigit(chr)){if(chr=='-') f=-1;chr=getchar();} 10 while(isdigit(chr)){ans=(ans

Notes-VBA-遍历

落花浮王杯 提交于 2019-12-02 14:55:02
Sub 遍历() For Each F In Dir遍历 'Office2003遍历,FSO遍历,双字典遍历,CMD遍历,栈遍历,管道遍历,Dir遍历 '此处加入文件处理代码即可。 Selection.InsertAfter F & Chr(13) i = i + 1 Next Selection.InsertAfter i MsgBox "OKOK!!!", vbOKOnly, "OKKO" End Sub Sub 单个文档处理(F) Dim pa As Paragraph, c As Range With Documents.Open(F, Visible:=False) For Each pa In .Paragraphs For Each c In pa.Range.Characters If c.Font.Name = "仿宋" And Abs(Asc(c)) > 128 Then c.Font.Name = "仿宋_GB2312" ElseIf c.Font.Name = "仿宋" And Abs(Asc(c)) < 128 Then c.Font.Name = "Times New Roman" End If Next Next .Close True End With End Sub ' 遍历文件夹 Function CMD遍历() Dim arr Dim t: t