用DELPHI写一个代码，将EXCEL文件读取成TXT文本

Posted 2023-04-09

我是新手，请各位大侠把每段代码的意思标写清楚。

参考技术A 在delphi中调用excel有四种方式，我们选取其中的一种用OleObject来装载excel工作表的方式来谈delphi控制excel的重要属性和方法。
首先给出通过OLE创建的一些主要代码步进行简单说明：
创建OLE对象：
Var olecon: TOleContainer;
Olecon:= TOleContainer.Create(self);
Olecon.oleobject:= Olecon.CreateObject('excel.sheet',false)；
或选择导入一个excel文件来创建OLE对象：
Olecon.oleobject:= Olecon.CreateObjectFromFile(xlsname,false)；
最好隐藏excel的几个工具条,这样就好象是嵌在你的程序中的一个表而已了：
Olecon.OleObject.application.CommandBars['Standard'].Visible:=false;
Olecon.OleObject.application.CommandBars['Formatting'].Visible:=false;
Olecon.OleObject.application.CommandBars['Reviewing'].Visible:=false;
然后显示并激活excel表,对TOleContainer定义的对象：
Olecon.show;
Olecon.doverb(0);
这样基本可以了，但TOleContainer有个不好的地方，就是当你一点击其它控件是就它就失去焦点，然后就自动退出，其实并没有真的退出，只是需要你再次激活它而已，关键是当它失去焦点的时候就excel对象就不见了，可以用Timage控件把TOleContainer所在的地方有 EXCEL时候的区域图片截下来骗骗用户，我们这里主要不是讲这个，就不详述了。
下面我们就开始讲Excel_TLB中的接口的常用属性和方法，主要是针对导出和设定报表格式的一些接口元素。
单元格的读写属性：
olecon.OleObject.application.cells.item[1,1];
olecon.OleObject.application.cells(1,1);
olecon.OleObject.application.cells[1,1].Value;
上面三种都可以对工作表的‘A1’单元进行读写。
在delphi中对单元格(集)，区域，工作表等所有对象的操作都是要Variant来实现的。
自己的程序中选定区域赋给Range:
Var range,sheet:Variant;
Range:= olecon.OleObject.application.Range['A1:C3'];
或者：
Sheet:= olecon.OleObject.application.Activesheet;
Range:= olecon.OleObject.application.Range[sheet.cells[1,1],sheet.cells[3,3]];
对上面的Range合并单元格：
Range.merge;
Range. FormulaR1C1:='合并区';//合并后写入文本
注意以后要读合并的单元格里面的文本就是读合并区域的左上角的那个单元格的文本
在excel表中选定区域赋给range：
range:=excel_grid1.OleObject.application.selection;
拆分单元格：
Range.unmerge;
合并后设定单元格（集）的格式：
Range.HorizontalAlignment:= xlCenter;// 文本水平居中方式
Range.VerticalAlignment:= xlCenter//文本垂直居中方式
Range.WrapText:=true;//文本自动换行
Range.Borders.LineStyle:=1//加边框
Range.Interior.ColorIndex:=39;//填充颜色为淡紫色
Range.Font.name:='隶书';//字体
Range.Font.Color:=clBlue;//字体颜色
常用格式也就这些，以上这些对于单个单元格也适用。
在excel表中寻找前后上下的单元格：
Var u1,u2,u3,u4,u5:Variant;
U1:=olecon.oleobject.application.activecell;//获取当前格；
U2:=u1.previous;//非特殊情况就是u1左边的一格；
U3:=ui.next;//非特殊情况就是u2右边的一格；
U4:=olecon.oleobject.application.cells[u1.cells.row-1,u1.cells.column];//非特殊情况为上面一格
U5:=olecon.oleobject.application.cells[u1.cells.row+1,u1.cells.column];//非特殊情况为下面一格
删除和插入一行和一列：
Olecon.oleobject.application.rows[2].delete;
Olecon.oleobject.application.columns[2].delete;
Olecon.oleobject.application.rows[2].insert;
Olecon.oleobject.application.columns[2].insert;
复制指定区域：
Olecon.oleobject.application.range['A1:C3'].copy;
从指定单元格开始粘贴：
Olecon.oleobject.application.range['A4'].PasteSpecial;
常用的就这些了，对delphi中server面板下的EXEL控件和创建EXCEL.Application COM对象的方式都适用。

我的空间里有 参考技术B 才10分,懒得说本回答被提问者采纳

用黏贴板读取excel中的数据以及用R生成人名

本人尚在超级菜鸟级别，中间有些代码写的很low，请不要见笑！

1.今天先跟大家分享一个小技巧，用黏贴板将excel中的数据读进R

首先选中要读入R的数据

如图，上面是我分析的病人相关资料，Ctrol+C选中目标区域，接着在R运行以下代码：

excel_clinic_data <- read.table("clipboard",sep="\\t",header = T)

运行后就可以看到我们想要读到R中的数据已经读进来了，超级方便。

注意：经本人试验，好像不支持不连续区域的选择，如果选择了不连续的区域，R会默认把中间没有选中的区域也读进来。

2. 用R中的几个小函数生成人名

大家可以看到，上面的病人信息其实我已近简单的处理过了，毕竟不能透露病人的隐私。于是心血来潮，想到用R来生成人名。我们想到的就是从一系列随机的字符串中随机挑出来三个字组成词了，也就是人名，虽然结果有点low，但是重要的是掌握原理，提高自己的编程水平。#从网上随机copy了一段文字 

names_pool <- c("推荐华东师范大学汤银才老师的")
#写个小函数，每次取三个数字，其实是为了取对应位置的文字
func <- function(x) {
  number <- sample(1:str_count(names_pool),3,replace=T)
  return(number)
}
#总共需要10个人名
numbers <- lapply(1:10,func)
results <- do.call(rbind,numbers)
#将文字分开变成单个字
names <- unlist(str_split(names_pool,""))
#间一个空矩阵存放名字
name <- matrix(ncol=1,nrow = dim(results)[1])

for( i in 1:dim(results)[1]) {
  name[i,1] <- str_c(names[results[i,1]],names[results[i,2]],names[results[i,3]])
}

　　

上述代码运行之后，结果如上图。上面的代码中用到了“stringr”包，个人觉得这个包还是挺好用的。本人也是刚接触R不久，所以暂时没有找到更简单的方法，如有，还望不吝赐教。