从txt文件中导出内容到word表格中

最新推荐文章于 2020-12-21 01:27:39 发布
最新推荐文章于 2020-12-21 01:27:39 发布
阅读量298 收藏 1
点赞数
分类专栏： VB 文章标签： IE HP JavaScript Windows ViewUI
最近无聊，看到个要把txt中的内容导入到word中的需求，当然了，word里是带表格的，要把txt中的内容解析后再分别放在word表格的指定位置，用java来做？想都没想，VBS正好可以干这个活啊！
test.html 

<html>
	<head>
		<title>test</title>
	</head>
	<body>
		<table align="center" border="1">
			<tr>
				<td colspan="4" align="center">导出txt内容到word文件<br></td>
			</tr>
			<tr>
				<td>选择要导出<br>的txt文件</td>
				<td width="80%"><input type="file" id="txtFile"></td>
			</tr>
			<tr>
				<td>选择要导出<br>的word文件</td>
				<td width="80%"><input type="file" id="wordFile"></td>
			</tr>
			<tr>
					<td colspan="4" align="center"><input type="button" value="开始" onclick="chick()"></td>
			</tr>
		</table>
	</body>
</html>

<SCRIPT LANGUAGE="vbscript">
		Dim txtFile
		Dim wordFile
		function chick()
			txtFile = document.getElementById("txtFile").value
			wordFile = document.getElementById("wordFile").value

			If Len(trim(txtFile)) = 0 Or Len(trim(wordFile)) = 0 Then
				MsgBox "请选择文件！"
			Else
				dowrite()
			End If

		end function

		function dowrite()
			Set fso = CreateObject("Scripting.FileSystemObject")
			Dim strAry()
			Dim linCount
			Dim strLine
			ReDim strAry(1000)

			Set TxtFile = fso.OpenTextFile(txtFile,1, False)

  		While Not TxtFile.AtEndOfStream
  			strLine = TxtFile.ReadLine
  			If Len(strLine) > 0 Then
  				strAry(linCount) = strLine
  				linCount = linCount + 1
  			End If
  		Wend

		  Set myDocApp = CreateObject("Word.Application")
		  myDocApp.Visible = True
		  myDocApp.Activate
		  myDocApp.Application.ScreenUpdating = False
		  set myDoc = myDocApp.Documents.Open(wordFile)

		  Set objSelection = myDocApp.Selection
			For i = 0 To linCount-1
				objSelection.Font.Name = "黑体"
				objSelection.Font.Size = 22
				objSelection.ParagraphFormat.Alignment = 1
				objSelection.ParagraphFormat.LineSpacingRule = 0
				objSelection.Font.Bold = true

				objSelection.TypeText "检测报告单"&vbCrLf

				objSelection.Font.Size = 12
				objSelection.Font.Bold = false

				Set table1 = objSelection.Tables.Add(objSelection.Range, 14, 6)
				Set Table1 = myDoc.Tables(i+1)
				With Table1
					.PreferredWidthType = 2
					.PreferredWidth = 100
					.Columns.PreferredWidthType = 2
					With .Borders(-2)
            .LineStyle = 1
            .LineWidth = 4
            .Color = -16777216
	        End With
	        With .Borders(-4)
	            .LineStyle = 1
            .LineWidth = 4
            .Color = -16777216
	        End With
	        With .Borders(-1)
	            .LineStyle = 1
            .LineWidth = 4
            .Color = -16777216
	        End With
	        With .Borders(-3)
	            .LineStyle = 1
            .LineWidth = 4
            .Color = -16777216
	        End With
	        With .Borders(-5)
	            .LineStyle = 1
            .LineWidth = 4
            .Color = -16777216
	        End With
	        .Borders(-7).LineStyle = 0
        	.Borders(-8).LineStyle = 0
        	.Borders.Shadow = False
	    	End With
	    	With myDocApp.Options
        	.DefaultBorderLineStyle = 1
        	.DefaultBorderLineWidth = 4
        	.DefaultBorderColor = -16777216
    		End With		
				'合并单元格 开始

				'第一行合并单元格
				objSelection.MoveRight 1, 6, 1
				objSelection.Cells.Merge

				'第五行合并单元格
				objSelection.MoveRight 1,2
				objSelection.MoveDown 5,3
				objSelection.MoveRight 1, 6, 1
				objSelection.Cells.Merge

				'第六行的第一二列合并单元格
				objSelection.MoveRight 1,2
				objSelection.MoveRight 1, 2, 1
				objSelection.Cells.Merge
				'第六行的第三四列合并单元格
				objSelection.MoveRight 1,1
				objSelection.MoveRight 1, 2, 1
				objSelection.Cells.Merge

				'第六行的第五六列合并单元格
				objSelection.MoveRight 1,1
				objSelection.MoveRight 1, 2, 1
				objSelection.Cells.Merge

				'第七行的第一二列合并单元格
				objSelection.MoveRight 1,2
				objSelection.MoveRight 1, 2, 1
				objSelection.Cells.Merge
				'第七行的第三四列合并单元格
				objSelection.MoveRight 1,1
				objSelection.MoveRight 1, 2, 1
				objSelection.Cells.Merge
				'第七、八、九行的第五六列合并单元格
				objSelection.MoveRight 1,1
				objSelection.MoveRight 1, 2, 1
				objSelection.MoveDown 5,2,1
				objSelection.Cells.Merge

				'第八行的第一二列合并单元格
				objSelection.MoveRight 1,2
				objSelection.MoveRight 1, 2, 1
				objSelection.Cells.Merge
				'第八行的第三四列合并单元格
				objSelection.MoveRight 1,1
				objSelection.MoveRight 1, 2, 1
				objSelection.Cells.Merge

				'第九行的第一二列合并单元格
				objSelection.MoveRight 1,3
				objSelection.MoveRight 1, 2, 1
				objSelection.Cells.Merge
				'第九行的第三四列合并单元格
				objSelection.MoveRight 1,1
				objSelection.MoveRight 1, 2, 1
				objSelection.Cells.Merge

				'第十行合并单元格
				objSelection.MoveRight 1,3
				objSelection.MoveRight 1, 6, 1
				objSelection.Cells.Merge

				'第十一、十二、十三、十四行合并单元格
				objSelection.MoveRight 1,2
				objSelection.MoveRight 1, 6, 1
				objSelection.MoveDown 5,3,1
				objSelection.Cells.Merge

				'合并单元格 结束

				'填写内容 开始
				Table1.Cell(1,1).Range.Text = "基本信息"

				Table1.Cell(2,1).Range.Text = "样品编号"
				Table1.Cell(2,2).Range.Text = Mid(strAry(i),21,15)
				Table1.Cell(2,3).Range.Text = "姓名"
				Table1.Cell(2,4).Range.Text = ""
				Table1.Cell(2,5).Range.Text = "性别"
				Table1.Cell(2,6).Range.Text = ""

				Table1.Cell(3,1).Range.Text = "年    龄"
				Table1.Cell(3,2).Range.Text = ""
				Table1.Cell(3,3).Range.Text = "病历号"
				Table1.Cell(3,4).Range.Text = ""
				Table1.Cell(3,5).Range.Text = "床位号"
				Table1.Cell(3,6).Range.Text = ""

				Table1.Cell(4,1).Range.Text = "送检日期"
				Table1.Cell(4,2).Range.Text = Mid(strAry(i),6,15)
				Table1.Cell(4,3).Range.Text = "临床诊断"
				Table1.Cell(4,4).Range.Text = ""
				Table1.Cell(4,5).Range.Text = ""
				Table1.Cell(4,6).Range.Text = ""

				Table1.Cell(5,1).Range.Text = "检测结果"

				Table1.Cell(6,1).Range.Text = "指标"
				Table1.Cell(6,2).Range.Text = "检测值"
				Table1.Cell(6,3).Range.Text = "阴阳性"

				Table1.Cell(7,1).Range.Text = "0分钟(T0)"
				Table1.Cell(8,1).Range.Text = "20分钟(T1)"
				Table1.Cell(9,1).Range.Text = "差值"

				Table1.Cell(9,2).Range.Text = Right(Left(strAry(i),5),4)

				Table1.Cell(7,3).Range.Text = "阴性(＜4.0)"&vbCrLf&"阳性(≥4.0)"

				Table1.Cell(10,1).Range.Text = "结果评价"
				objSelection.ParagraphFormat.Alignment = 3
				Table1.Cell(11,1).Range.Text = ""&vbCrLf&"13C-UREA呼气试验Hp结果为:"

				'填写内容 结束

				objSelection.EndKey(6)
				objSelection.ParagraphFormat.Alignment = 3		
				objSelection.TypeText "检验人:                                        检验日期:"&vbCrLf
				If (i+1) Mod 2 = 1 Then
					objSelection.TypeText ""&vbCrLf&"-------------------剪------------- 切---------------线---------------"&vbCrLf	
				End If
			Next
			myDoc.close()
			myDocApp.quit()
		end function
</SCRIPT>



附：
txt文件内容格式
test.txt
D 32009-05-1513:2009051503MJ 0.5NEGATIVE 2.1 2.3 4.000
D 42009-05-1513:2309051504DYD 1.0NEGATIVE 2.1 2.6 4.000
D 12009-05-1514:520136 12.3POSITIVE 2.2 2.5 4.000
D 22009-05-1514:550078 -0.2NEGATIVE 1.4 1.7 4.000
D 32009-05-1514:580001 -0.7NEGATIVE 2.3 2.6 4.000
SavageGarden_Love
关注
专栏目录
AsposeWord导出word表格wordtable
02-16
在这个特定的场景中，我们关注的是如何使用Aspose.Word导出Word文档中的表格。 在.NET开发环境中，如Visual Studio 2015，可以利用Aspose.Word来处理Word文档，包括导出表格。首先，我们需要创建一个...
初学js---获取输入框中的内容并添加到表格中
banshenjian0454的博客
07-30 6449
按下添加按钮将输入框中的内容添加到表格中： 这里涉及到的动态创建表格单元的已讲略过 只讲获取数据添加到表格：通过getElementById（*）.value分别获取输入框中的值，通过以上代码将其加入到表格中 <!DOCTYPE html> <html lang="en"> <head> <meta charset=...
qstringlist格式怎么写到txt_好多人工作几年都不知道，TXT文件导入Word还可以用这个方法...
weixin_39675926的博客
12-04 337
公司同事手上有一份txt的文本文件，老板叫他把这个txt文本文件导入Word文档中并在Word文档中生成表格。眼看就要下班了，而老板急着要，这可怎么办呢？我看了看，给了他两个思路：(1)复制txt的所有文本，粘贴到Word中，并在Word中将文本转换成表格；(2)利用Word文档中的“插入数据库”功能，将文本文件的数据导入到Word中。第(1)个思路大家应该都会，下面教你用第(2)个思路来解决，这...
iview离线文档_iview 导出文件(txt)
weixin_39715187的博客
12-21 492
1、定义导出文件按钮导出TXT2、我这里是模态框 为了选择导出指定的数据title="提示框"v-model="modalConfirm"@on-cancel="modalConfirm = false"@on-ok="doExportTxt"class-name="vertical-center-modal">请选择要导出的版本v-for="item in version":label="...
freemarker 导出word表格
07-27
在本场景中，我们讨论的是如何利用FreeMarker来导出Word表格。这个过程通常涉及到以下步骤： 1. **创建Word模板**： 首先，你需要使用Microsoft Word创建所需的表格和格式。Word允许用户设计丰富的布局，包括...
java根据word模板导出Word文件，插入图片表格都可以
06-12
网络上的根据模板填充Word我都看过一些， 它们的功能在数据换行的时候用的是run对象的.addCarriageReturn()方法,或者是直接用\n实现换行。这些都不符合我的需求， 因为我要的是分段，而不是换行。换行的word导致另一...
Java读取Word中的表格(Excel),并导出文件为Excel
11-12
在Java编程中，有时我们需要处理来自不同文档格式的数据，例如从Word文档中提取表格内容，并将其转换成Excel文件。这通常涉及到使用Apache POI库，一个强大的API，用于读写Microsoft Office格式的文件，包括Word（....
Delphi导出Access数据库内容到Word中
05-18
本篇将深入探讨如何使用Delphi来实现从Access数据库导出数据到Word文档中的过程。 首先，我们要了解Delphi如何与数据库进行交互。Delphi提供了多种数据库组件，如ADO (ActiveX Data Objects) 和 BDE (Borland ...
页面表格导出EXCEL以及TXT
一个暖心的IT男的博客
01-24 719
 页面是一个table，我之前写了关于如何拿table中多条数据的文章,这里就不过多的去写了。 直接写后台处理： controller: EXCEL: public void exportExcel (HttpServletResponse response,Map totaltablestr,JSONArray storyboardstr) { String file...
读取TXT文件并导出Excel表
码其一生的博客
03-22 924
读取TXT文件并导出Excel表 private void OpentxtFile() { int row = 0;//行 int col = 0;//lie int rowline = 0; FileStream fs; string path = @“C:\Users\Administrator\Desktop\tr.txt”; fs = new FileStream(path, FileMo...
iview导出各种格式的表格（亲测.xls .txt .csv）
qq_32318311的博客
04-29 4737
iview导出各种格式的表格（亲测.xls .txt .csv） iview源码中其实封装的是通用版的导出文件，即可以导出各种格式的文件。 但是怎样不改源码的情况导出其他格式呢？ src/components/table中table.vue中找到这个方法，修改后缀名 引入两个方法 调用方法 即可导出各种格式的表格了 ...
javascript将网页表格导出Word和Excel
热门推荐
小马的专栏
09-27 2万+
 javascript将网页表格导出Word function AllAreaWord() {  if(document.all("tab").rows.length==0)  {   alert("没有内容可导！");   return;  }  try{   var oWD = new ActiveXObject("Word.Application");   }catch(e)  {  
JavaScript将页面表格数据导出为Excel、CSV格式文件（结合JQuery EasyUI的grid ）
kingys1992的博客
09-06 3816
JavaScript实现JQuery EasyUI的grid数据导出excel摸索纠结一下午了。  1、IE浏览器实现 ，感觉很鸡肋，不兼容  ，需要设置太多浏览器ActiveX 配置环境麻烦。 关键字：     var oXL = new ActiveXObject("Excel.Application"); IE导出CSV window.onload = f
HTML格式字符串生成Word
王绍桦
10-11 2259
import java.io.ByteArrayInputStream; import java.io.FileOutputStream; import java.io.InputStream; import java.io.OutputStream;import org.apache.poi.poifs.filesystem.POIFSFileSystem;public class Test
python导出word中的表格并保存到excel
最新发布
06-07
下面是一个示例代码，可以将 Word 文档中的表格导出并保存到 Excel 文件中： ``` python import docx from openpyxl import Workbook # 打开 Word 文档 doc = docx.Document('example.docx') # 创建 Excel 工作簿...
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值