Cuestión : La escritura de VBS en la macro para tirar de líneas múltiples de datos necesitó de archivo

Tengo un archivo de .ini que sea un inventario de una PC.  Una macro se ha creado para sacar del Info ella y poblar un file

It de XLS trabaja muy bien cuando hay solamente una línea en el archivo para cierto Info.  Sin embargo, también queremos ver todas las impresoras una persona has.

In el archivo, él miramos el like
----------------------
MappedPrinter .......: PMT: = Tesia PMT
MappedPrinter .......: TesiaPort: = Tesia
MappedPrinter .......: NVM5: = enviar al documento Center
MappedPrinter de Dentrix .......: XPSPort: = documento Writer
MappedPrinter de Microsoft XPS .......: Microsoft documenta el puerto del escritor de la proyección de imagen: = imagen Writer
MappedPrinter del documento de Microsoft Office .......: HPFAX: = HP LaserJet 3050_3055_3390_3392 Fax
MappedPrinter .......: DOT4_001 = HP LaserJet 3050 series PCL 6 (copia 1)
MappedPrinter .......: IP_ 170.11.115.21 = Canon iR5000-6000-L1 PCL5e CP Barn
--------------el

dependiendo allí de la persona, pueden tener más o menos impresoras. el


When I fijó el código similar al otro fields
------------------
si está ido (xR, 13) = células de “MappedPrinter” Then

(zZ, 23) = (xR, Len (xR) - 22) extremo correcto If
del

--------------------el
This exhibe solamente el último de la impresora trazada Info de “IP_ 170.11.115.21 = del

So del granero de Canon iR5000-6000-L1 PCL5e CP " que necesita colocar en sí mismo cada vez que vio MappedPrinter, creando una secuencia que crezca (tener quizá cierta clase de texto del separador agregó entre el info.

Up en la tapa de la escritura de VB, yo han creado una variable “printerInfo como del

Below de la secuencia " es el código de VBS del Macro
class= > " claro " 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

Respuesta : La escritura de VBS en la macro para tirar de líneas múltiples de datos necesitó de archivo

Substituir su si la declaración con el recorte below… esto utiliza un delimitador del punto y coma.

Usted podría repetir esto con cada uno de sus secciones.
1:
2:
3:
4:
5:
6:
7:
Si está ido (xR, 13) = “MappedPrinter” entonces
                Si células (zZ, 23) = "" entonces
                    Células (zZ, 23) = derecho (xR, Len (xR) - 22)
                
                    Células (zZ, 23) = células (zZ, 23) y “; ” Y derecho (xR, Len (xR) - 22)
                Terminar si
            Terminar si
Otras soluciones  

 
programming4us programming4us