VB代码提取一些参数 [英] VB Code to extract some parameters
问题描述
我有2个原始的* .txt文件，如下所示:
第一个原始文件，例如:
Hi,
I have 2 raw *.txt files as shown:
1st Raw file for e.g:
rtrwb1>telnet 10.130.224.91
Trying 10.130.224.91 ... Open
ENTER USERNAME < GNFMN1
ENTER PASSWORD < ******
MGW MGW950199 2010-10-21 19:18:54
WELCOME TO THE IPA2800 SERIES DIALOGUE
MAIN LEVEL COMMAND <___>
< ZOLT;
LOADING PROGRAM VERSION 6.18-0
MGW MGW950199 2010-10-21 19:18:55
SIGNALLING LINK LOAD
ACTIVE UNIT
METERS OF LAST PERIOD: 18:30:00 - 19:00:00 (30 MIN)
TDM BASED LINKS:
================
RECEIVED TRANSMITTED
LINK ERLANGS ERLANGS
==== ========== ===========
2 0.133 0.136
4 0.119 0.104
5 0.039 0.057
7 0.015 0.017
8 0.030 0.031
9 0.013 0.016
10 0.120 0.095
15 0.132 0.137
24 0.132 0.137
25 0.132 0.136
26 0.132 0.137
27 0.132 0.137
28 0.132 0.137
31 0.133 0.137
32 0.137 0.139
33 0.137 0.139
34 0.137 0.139
35 0.137 0.140
36 0.138 0.139
37 0.138 0.139
38 0.138 0.140
39 0.139 0.140
49 0.030 0.033
50 0.185 0.187
51 0.186 0.187
52 0.186 0.188
53 0.186 0.188
54 0.185 0.188
55 0.186 0.188
56 0.185 0.189
57 0.185 0.187
66 0.041 0.063
70 0.044 0.071
71 0.032 0.068
72 0.065 0.108
73 0.063 0.108
74 0.073 0.000
75 0.068 0.000
COMMAND EXECUTED
INTERROGATION OF SIGNALLING LINK STATISTICS METERS COMMAND <OL_>
<
INTERROGATION OF SIGNALLING LINK STATISTICS METERS COMMAND <OL_>
< ZZZZ;
END OF DIALOGUE SESSION
第二个原始文件:
rtrwb1> telnet 10.130.224.91
尝试10.130.224.91 ...打开
输入用户名< GNFMN1
输入密码< ******
MGW MGW950199 2010-10-22 19:16:16
欢迎使用IPA2800系列对话
主要级别命令< ___>
< ZNEL;
载入程序版本8.38-0
MGW MGW950199 2010-10-22 19:16:17
信号链接状态
基于TDM的链接(Q703)
=====================
LINK LOG TERMIN EXTERN BIT
链接链接设置状态单位ETGR功能PCM-TSL速率
==== ============================================== ================
2 23 BSC99 AV-EX ISU-10 1 ETGR-75 0 399-16&& 17128
4 17 ASMSC AV-EX ISU-10 5 ETGR-24 0 192-16&&& 17128
5 33 PRCCR AV-EX ISU-6 0 STER-3 0 2234-16 64
7 27 ATKMS AV-EX ISU-4 4 STER-1 2 1381-16 64
8 22 ATLM2 AV-EX ISU-3 2 ETGR-80 0 418-16 64
9 27 ATKMS AV-EX ISU-10 8 STER-1 3 1396-16 64
10 17 ASMSC AV-EX ISU-10 9 ETGR-68 0 368-16&&&& 17128
15 23 BSC99 AV-EX ISU-7 2 STER-2 0 2121-16&&& 17128
24 23 BSC99 AV-EX ISU-6 3 STER-2 1 2125-16&&& 17128
25 23 BSC99 AV-EX ISU-5 3 STER-2 2 2129-16&&& 17128
26 23 BSC99 AV-EX ISU-8 0 ETGR-77 0 406-16&&& 17128
27 23 BSC99 AV-EX ISU-1 3 ETGR-87 0 447-16&&& 17128
28 23 BSC99 AV-EX ISU-10 6 ETGR-66 0 362-16&&& 17128
30 33 PRCCR UA-AD ISU-7 3 STER-2 4 2104-16 64
31 23 BSC99 AV-EX ISU-3 4 ETGR-0 0 96-16&&&&&& 17128
32 25 ADL74 AV-EX ISU-3 6 ETGR-47 0 287-16&&& 17128
33 25 ADL74 AV-EX ISU-7 4 ETGR-48 0 288-16&& 17128
34 25 ADL74 AV-EX ISU-3 7 ETGR-52 0 306-16&& 17128
35 25 ADL74 AV-EX ISU-9 1 ETGR-45 0 279-16&&& 17128
36 25 ADL74 AV-EX ISU-5 0 ETGR-57 1 326-16&&& 17128
37 25 ADL74 AV-EX ISU-3 8 STER-1 0 1351-16&&&& 17128
38 25 ADL74 AV-EX ISU-7 0 STER-1 1 1359-16&&& 17128
39 25 ADL74 AV-EX ISU-0 1 ETGR-20 0 179-16&&& 17128
49 22 ATLM2 AV-EX ISU-9 3 ETGR-81 0 422-16 64
50 26 BSC09 AV-EX ISU-7 1 ETGR-59 0 334-16&&& 17128
51 26 BSC09 AV-EX ISU-3 5 ETGR-38 0 250-16&&& 17128
52 26 BSC09 AV-EX ISU-4 2 ETGR-2 0 107-16&&& 17128
53 26 BSC09 AV-EX ISU-3 9 ETGR-66 1 361-16&& 17128
54 26 BSC09 AV-EX ISU-5 2 STER-2 6 2136-16&&& 17128
55 26 BSC09 AV-EX ISU-3 10 STER-2 5 2106-16&&& 17128
56 26 BSC09 AV-EX ISU-3 11 ETGR-33 0 228-16&&& 17128
57 26 BSC09 AV-EX ISU-6 2 ETGR-87 1 445-16&&& 17128
59-UA-AD ISU-7 5 STER-2 3 2149-16 64
信号链接不在信号链接集中
66 28 RGMSC AV-EX ISU-5 1 ETGR-33 1 229-16 64
70 20 ANDMS UA-INS ISU-1 2 ETGR-64 0 355-16 64
71 20 ANDMS AV-EX ISU-9 4 ETGR-85 0 436-16 64
72 20 ANDMS AV-EX ISU-3 1 ETGR-34 0 235-15 64
73 20 ANDMS AV-EX ISU-7 6 ETGR-34 1 235-16 64
74 37 VODAO AV-EX ISU-7 7 ETGR-0 1 98-16 64
75 37 VODAO AV-EX ISU-6 1 ETGR-62 0 346-16 64
基于M3UA的链接
================
M3UA关联链接
链接链接设置设置状态
==== ======== ===============
0 16 MSSAS 0 AV-EX
1 18 MSSN0 1 AV-EX
命令执行
信号网络状态查询命令< NE_>
<
信号网络状态查询命令< NE_>
< ZZZZ;
对话期结束
在我的表单中，我需要显示2个文本框，其中将通过单击浏览按钮来请求2个原始文件的路径.在单击过程按钮时，应从2个原始文件中提取所需的数据;将输出显示为:
2nd raw file:
rtrwb1>telnet 10.130.224.91
Trying 10.130.224.91 ... Open
ENTER USERNAME < GNFMN1
ENTER PASSWORD < ******
MGW MGW950199 2010-10-22 19:16:16
WELCOME TO THE IPA2800 SERIES DIALOGUE
MAIN LEVEL COMMAND <___>
< ZNEL;
LOADING PROGRAM VERSION 8.38-0
MGW MGW950199 2010-10-22 19:16:17
SIGNALLING LINK STATES
TDM BASED LINKS (Q703)
======================
LINK LOG TERM EXTERN BIT
LINK LINK SET STATE UNIT TERM ETGR FUNCT PCM-TSL RATE
==== ======== ======= ============ ============ =======================
2 23 BSC99 AV-EX ISU-10 1 ETGR-75 0 399-16&&17 128
4 17 ASMSC AV-EX ISU-10 5 ETGR-24 0 192-16&&17 128
5 33 PRCCR AV-EX ISU-6 0 STER-3 0 2234-16 64
7 27 ATKMS AV-EX ISU-4 4 STER-1 2 1381-16 64
8 22 ATLM2 AV-EX ISU-3 2 ETGR-80 0 418-16 64
9 27 ATKMS AV-EX ISU-10 8 STER-1 3 1396-16 64
10 17 ASMSC AV-EX ISU-10 9 ETGR-68 0 368-16&&17 128
15 23 BSC99 AV-EX ISU-7 2 STER-2 0 2121-16&&17 128
24 23 BSC99 AV-EX ISU-6 3 STER-2 1 2125-16&&17 128
25 23 BSC99 AV-EX ISU-5 3 STER-2 2 2129-16&&17 128
26 23 BSC99 AV-EX ISU-8 0 ETGR-77 0 406-16&&17 128
27 23 BSC99 AV-EX ISU-1 3 ETGR-87 0 447-16&&17 128
28 23 BSC99 AV-EX ISU-10 6 ETGR-66 0 362-16&&17 128
30 33 PRCCR UA-AD ISU-7 3 STER-2 4 2104-16 64
31 23 BSC99 AV-EX ISU-3 4 ETGR-0 0 96-16&&17 128
32 25 ADL74 AV-EX ISU-3 6 ETGR-47 0 287-16&&17 128
33 25 ADL74 AV-EX ISU-7 4 ETGR-48 0 288-16&&17 128
34 25 ADL74 AV-EX ISU-3 7 ETGR-52 0 306-16&&17 128
35 25 ADL74 AV-EX ISU-9 1 ETGR-45 0 279-16&&17 128
36 25 ADL74 AV-EX ISU-5 0 ETGR-57 1 326-16&&17 128
37 25 ADL74 AV-EX ISU-3 8 STER-1 0 1351-16&&17 128
38 25 ADL74 AV-EX ISU-7 0 STER-1 1 1359-16&&17 128
39 25 ADL74 AV-EX ISU-0 1 ETGR-20 0 179-16&&17 128
49 22 ATLM2 AV-EX ISU-9 3 ETGR-81 0 422-16 64
50 26 BSC09 AV-EX ISU-7 1 ETGR-59 0 334-16&&17 128
51 26 BSC09 AV-EX ISU-3 5 ETGR-38 0 250-16&&17 128
52 26 BSC09 AV-EX ISU-4 2 ETGR-2 0 107-16&&17 128
53 26 BSC09 AV-EX ISU-3 9 ETGR-66 1 361-16&&17 128
54 26 BSC09 AV-EX ISU-5 2 STER-2 6 2136-16&&17 128
55 26 BSC09 AV-EX ISU-3 10 STER-2 5 2106-16&&17 128
56 26 BSC09 AV-EX ISU-3 11 ETGR-33 0 228-16&&17 128
57 26 BSC09 AV-EX ISU-6 2 ETGR-87 1 445-16&&17 128
59 - UA-AD ISU-7 5 STER-2 3 2149-16 64
SIGNALLING LINK NOT IN SIGNALLING LINK SET
66 28 RGMSC AV-EX ISU-5 1 ETGR-33 1 229-16 64
70 20 ANDMS UA-INS ISU-1 2 ETGR-64 0 355-16 64
71 20 ANDMS AV-EX ISU-9 4 ETGR-85 0 436-16 64
72 20 ANDMS AV-EX ISU-3 1 ETGR-34 0 235-15 64
73 20 ANDMS AV-EX ISU-7 6 ETGR-34 1 235-16 64
74 37 VODAO AV-EX ISU-7 7 ETGR-0 1 98-16 64
75 37 VODAO AV-EX ISU-6 1 ETGR-62 0 346-16 64
M3UA BASED LINKS
================
M3UA ASSOCIATION LINK
LINK LINK SET SET STATE
==== ======== =========== =====
0 16 MSSAS 0 AV-EX
1 18 MSSN0 1 AV-EX
COMMAND EXECUTED
SIGNALLING NETWORK STATE INTERROGATION COMMAND <NE_>
<
SIGNALLING NETWORK STATE INTERROGATION COMMAND <NE_>
< ZZZZ;
END OF DIALOGUE SESSION
In my form i need to show a 2 textboxes in which it would ask for a path for 2 raw file by clickage of a browse button.And on clickage of process button it should extract required data from 2 raw files & display the output as:
RECEIVED TRANSMITTED
LINK ERLANGS ERLANGS
==== ========== ===========
2 0.133 0.136
4 0.119 0.104
5 0.039 0.057
7 0.015 0.017
8 0.030 0.031
9 0.013 0.016
10 0.120 0.095
15 0.132 0.137
24 0.132 0.137
25 0.132 0.136
26 0.132 0.137
27 0.132 0.137
28 0.132 0.137
31 0.133 0.137
32 0.137 0.139
33 0.137 0.139
34 0.137 0.139
35 0.137 0.140
36 0.138 0.139
37 0.138 0.139
38 0.138 0.140
39 0.139 0.140
49 0.030 0.033
50 0.185 0.187
51 0.186 0.187
52 0.186 0.188
53 0.186 0.188
54 0.185 0.188
55 0.186 0.188
56 0.185 0.189
57 0.185 0.187
66 0.041 0.063
70 0.044 0.071
71 0.032 0.068
72 0.065 0.108
73 0.063 0.108
74 0.073 0.000
75 0.068 0.000
& 1 more column of Link Set form 2nd raw file.
Please help in the same
[原件.标题]
VB代码以从2个* .txt文件中提取一些参数&通过使用浏览按钮&将单个excel中的内容转换为1张表格根据所需条件显示输出
[orig. title]
VB Code to extract some parameters from 2 *.txt files & convert the same in single excel into 1 sheet by use of Browse Button & displaying output as per criteria required
推荐答案
对于第一个文件，您搜索"==== =========== = ===========并以数字开头的每一行，直到遇到"COMMAND EXECUTED"(或文件结尾)为止.
要将其与第二个文件合并:
首先搜索"==== ======== =================================== ===================并将其中的文本提取到基于M3UA的链接"，那么您有两个选择:
1:只需在第一个文件中找到的行中添加以数字开头的行.
2:提取第二个文件的每一行的第一个数字，然后在文件2中找到匹配的数字.
祝你好运！
For the first file you search for " ==== ========== ===========" and take every line that starts with a number until you encounter "COMMAND EXECUTED" (or end of file).
For merging it with the second file:
First search for "==== ======== ======= ============ ============ =======================" and extract the text from there to "M3UA BASED LINKS", then you have two options:
1: Simply add each line starting with a number to the lines found in the first file.
2: Extract the first number of each line of the second file and find the matching number in file 2.
Good luck!
dim c as long, startline as long
dim lines as variant, arr as variant
lines = split(text, vbNewLine)
for c = 0 to ubound(lines)
if lines(c) = " ==== ========== ===========" then
startline = c+1
exit for
end if
next
for c = startline to ubound(lines)
arr = split(trim(lines(c)), " ")
if isnumeric(arr(0)) then
'' This is a line you want
end if
next
这篇关于VB代码提取一些参数的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！
