CST中把文件中的文本信息按照行读入到数组的代码

最新推荐文章于 2021-09-12 00:08:31 发布

Rudy_Han

最新推荐文章于 2021-09-12 00:08:31 发布

阅读量384

点赞数 1

分类专栏： cst

本文链接：https://blog.csdn.net/Rudy_Han/article/details/113926218

版权

VBA 文件读写 Python调用结束标志位文本处理

关键词由CSDN通过智能技术生成

cst 专栏收录该内容

3 篇文章 0 订阅

订阅专栏

1.如果涉及中文，要用UTF-8 BOM格式；
2.Open 指令中Line Input如果读不到数据会报错，文本信息记得加个结束标志位，例如end

'#Language "WWB-COM"

Option Explicit

Sub Main
	Open "D:\02Projects\5.cst-control-excel\test" For Input As #1
	Dim a As String
	Dim b(100) As String
	Dim i As Integer
	i=1
	Do
		Line Input #1,a
		b(i)=a
		MsgBox b(i)
		i=i+1
		If b(i-1)="end" Then
			Exit Do
		End If
	Loop


End Sub

这里是打开文本文件写入内容

'#Language "WWB-COM"

Option Explicit

Sub Main
	Dim i As Integer
	i=0
	Open "D:\02Projects\5.cst-control-excel\test.txt" For Output As #1
	Do
		Print #1,Right(Solid.GetNameOfShapeFromIndex(i),Len(Solid.GetNameOfShapeFromIndex(i))-InStr(Solid.GetNameOfShapeFromIndex(i),":"))
		i=i+1
		If Solid.GetNameOfShapeFromIndex(i)="" Then
			Exit Do
		End If
	Loop
	Close #1
	Call Shell("python D:\02Projects\5.cst-control-excel\test.py")

	MsgBox "Rudy:end"
End Sub