Questione : Lo scritto di VBS nella macro per tirare le linee multiple di dati ha avuto bisogno di dalla lima

Ho una lima di .ini che è un inventario di PC.  Una macro è stata generata per tirare l'Info da esso e popolare un file

It di XLS funziona benissimo quando ci è soltanto una linea nella lima per determinata Info.  Tuttavia, inoltre vogliamo vedere tutti gli stampatori una persona has.

In la lima, esso osserviamo il like
----------------------
MappedPrinter .......: PMT: = Tesia PMT
MappedPrinter .......: TesiaPort: = Tesia
MappedPrinter .......: NVM5: = trasmettere al documento Center
MappedPrinter di Dentrix .......: XPSPort: = documento Writer
MappedPrinter di Microsoft XPS .......: Microsoft documenta l'orificio del produttore di formazione immagine: = immagine Writer
MappedPrinter del documento di Microsoft Office .......: HPFAX: = HP LaserJet 3050_3055_3390_3392 Fax
MappedPrinter .......: DOT4_001 = HP LaserJet 3050 serie PCL 6 (copia 1)
MappedPrinter .......: IP_ 170.11.115.21 = Canon iR5000-6000-L1 PCL5e CP Barn
--------------

secondo là la persona, possono avere più o meno stampatori. il


When I ha installato il codice simile all'altro fields
------------------
se andato (xR, 13) = cellule “di MappedPrinter„ Then

(zZ, 23) = (xR, Len (xR) - 22) estremità destra If
del

--------------------il
This visualizza soltanto l'ultimo dello stampatore tracciato Info “di IP_ 170.11.115.21 = del

So che del granaio di Canon iR5000-6000-L1 PCL5e CP " deve collegare su se ogni volta ha veduto MappedPrinter, generando una stringa che si svilupperà (forse avere certa specie del testo del separatore ha aggiunto fra il info.

Up alla parte superiore dello scritto di VB, io hanno generato una variabile “printerInfo come del

Below della stringa " è il codice di VBS del Macro class= > " libero " del
> " del codeSnippet " del class= del
class= " lineNumbers " del
class= del 
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 " del class= " del id= " codeSnippet828281 del

Risposta : Lo scritto di VBS nella macro per tirare le linee multiple di dati ha avuto bisogno di dalla lima

Sostituire il vostro se dichiarazione con il frammento sotto… questo usi un delimitatore di punto e virgola.

Potreste ripetere questo con ciascuna delle vostre sezioni.
1:
2:
3:
4:
5:
6:
7:

Se andato (xR, 13) = “MappedPrinter„ allora
                Se cellule (zZ, 23) = "" allora
                    Cellule (zZ, 23) = di destra (xR, Len (xR) - 22)
                Altrimenti
                    Cellule (zZ, 23) = cellule (zZ, 23) & “; „ & di destra (xR, Len (xR) - 22)
                Concluder se
            Concluder se
Altre soluzioni  

 
programming4us programming4us