Pergunta : Certificado de VBS no macro para puxar linhas múltiplas de dados necessários da lima

I've começ uma lima de .ini que fosse um inventário de um PC.  Um macro foi criado para puxar a informação fora dele e povoar um file

It de XLS trabalha muito bem quando há somente uma linha na lima para determinada informação.  Entretanto, nós igualmente queremos ver todas as impressoras uma pessoa has.

In a lima, ele olhamos o like
----------------------
MappedPrinter .......: PMT: = Tesia PMT
MappedPrinter .......: TesiaPort: = Tesia
MappedPrinter .......: NVM5: = emitir ao original Center
MappedPrinter de Dentrix .......: XPSPort: = original Writer
MappedPrinter de Microsoft XPS .......: Microsoft documenta o porto do escritor da imagem latente: = imagem Writer
MappedPrinter do original de Microsoft Office .......: HPFAX: = cavalo-força LaserJet 3050_3055_3390_3392 Fax
MappedPrinter .......: DOT4_001 = cavalo-força LaserJet 3050 séries do
MappedPrinter de PCL 6 (cópia 1) .......: IP_ 170.11.115.21 = Canon iR5000-6000-L1 PCL5e PC Barn
--------------o

dependendo lá da pessoa, podem ter mais ou menos impressoras. o


When I setup o código similar ao outro fields
------------------
se saido (xR, 13) = pilhas de “MappedPrinter” Then

(zZ, 23) = (xR, Len (xR) - 22) extremidade direita If
do

--------------------o
This indica somente o último da informação traçada da impressora de “IP_ 170.11.115.21 = de

So que do celeiro de Canon iR5000-6000-L1 PCL5e PC " precisa de dar laços nse cada vez que considerou MappedPrinter, criando uma corda que cresça (ter talvez alguma sorte do texto do separador adicionou entre o info.

Up na parte superior do certificado de VB, mim criaram uma variável “printerInfo como do

Below da corda " é o código de VBS do Macro
class= > " desobstruído " do
> do " codeSnippet " do class= do
class= " lineNumbers " do
class= do
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:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:
94:
95:
96:
97:
98:
99:
100:
101:
102:
103:
104:
105:
106:
107:
108:
109:
110:
111:
112:
113:
114:
115:
116:
117:
118:
119:
120:
121:
122:
123:
124:
125:
126:
127:
128:
129:
130:
131:
132:
133:
134:
135:
136:
137:
138:
139:
140:
141:
142:
143:
144:
145:
146:
147:
148:
149:
150:
151:
152:
153:
154:
155:
156:
157:
158:
159:
160:
161:
162:
163:
164:
165:
166:
167:
168:
169:
170:
171:
172:
173:
174:
175:
176:
177:
178:
179:
180:
181:
182:
183:
184:
185:
186:
187:
188:
189:
190:
191:
192:
193:
194:
195:
196:
197:
198:
199:
200:
201:
202:
203:
204:
205:
206:
207:
208:
209:
210:
211:
212:
213:
214:
215:
216:
217:
218:
219:
220:
221:
222:
223:
224:
225:
226:
227:
228:
229:
230:
231:
232:
233:
234:
235:
236:
237:
238:
239:
240:
241:
242:
243:
244:
245:
>Option notpretty " do class= " do id= " codeSnippet828281 do

Resposta : Certificado de VBS no macro para puxar linhas múltiplas de dados necessários da lima

Substituir o seu se a indicação com a pequena notícia below… isto usará um delimitador do semi-colon.

Você poderia repetir este com a cada um de suas seções.
1:
2:
3:
4:
5:
6:
7:
Se saido (xR, 13) = “MappedPrinter” então
                Se pilhas (zZ, 23) = "" então
                    Pilhas (zZ, 23) = direito (xR, Len (xR) - 22)
                Mais
                    Pilhas (zZ, 23) = pilhas (zZ, 23) & “; ” & direito (xR, Len (xR) - 22)
                Terminar se
            Terminar se
Outras soluções  

 
programming4us programming4us