99 / 94 / 23
Регистрация: 30.08.2015
Сообщений: 457
|
|
|
1
|
VBS Чтение матрицы из файла
13.07.2016, 03:10. Показов 1488. Ответов 0
Доброго, есть матрица c неопределенным размером в файле с именем к примеру data1.txt а матрица
text1;text2;text3
text1;text2;text3
text1;text2;text3
не могу ее прочесть... и на выходе хотелось бы получить такую матрицу
text1 text2 text3 data1
text1 text2 text3 data1
text1 text2 text3 data1
вот мой вариант не рабочий
| Visual Basic | 1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
| Dim filetxt, filename
Dim strData, strarray
Dim objStream
Dim cols
Dim out(), vr1(), vr2()
filetxt="c:\1\data1.txt"
Set fso = CreateObject("Scripting.FileSystemObject")
filename=fso.GetBaseName(filetxt)
Set objStream = CreateObject("ADODB.Stream")
objStream.Charset = "utf-8"
objStream.Open
objStream.LoadFromFile (filetxt)
strData = objStream.ReadText()
strarray = Split(strData,vbCr) ' - получаем одномерный массив строк
cols = UBound(Split(strarray(0),";"),1)
For i=0 To UBound(strarray,2)
ReDim preserve vr1(i)
vr1(i) = filename
For j=0 To cols
ReDim preserve vr2(j)
vr2(j)=Split(strarray(i),";") '- массив из одной строки с разделителем ";"
ReDim preserve out(i,j)
out(i,j) = ' - не знаю как все объединить
Erase vr2
j=j+1
Next
i=i+1
Next |
|
готово
| Visual Basic | 1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
| Dim filetxt, filename
Dim strData, strarray
Dim objStream
Dim cols
Dim out(), out_tmp()
Sub PushBtnEvent_Start()
Rem TODO: Add your code here
End Sub
Sub PushBtnEvent_Exec(Inputs,Outputs)
filetxt= Inputs(0).value
Set fso = CreateObject("Scripting.FileSystemObject")
filename=fso.GetBaseName(filetxt)
Set objStream = CreateObject("ADODB.Stream")
objStream.Charset = "utf-8"
objStream.Open
objStream.LoadFromFile (filetxt)
strData = objStream.ReadText()
strarray = Split(strData,vbCr)
rows = UBound(strarray,1)
cols = UBound(Split(strarray(0),";"),1)
ReDim preserve out(rows,cols+1)
ReDim preserve out_tmp(rows)
For i=0 To rows
For j=0 To cols
out_tmp(i)= Split(strarray(i),";")
out(i,j) = out_tmp(i)(j)
out(i,cols+1) = filename
Next
Next
Outputs(0).value = out
Erase out
Erase out_tmp
objStream.Close
End Sub
Sub PushBtnEvent_Stop()
Rem TODO: Add your code here
End Sub
Sub PushBtn_Click()
PushBtn.Recalculate()
End Sub |
|
0
|
(
