Question : Le manuscrit de VBS dans le macro pour tirer les lignes multiples des données a eu besoin à partir du dossier

J'ai un dossier de .ini qui est un inventaire d'un PC.  Un macro a été créé pour tirer l'information hors de lui et peupler un file

It de XLS fonctionne très bien quand il y a seulement une ligne dans le dossier pour certaine information.  Cependant, nous voulons également voir tous les imprimeurs une personne has.

In le dossier, il regarde le like
----------------------
MappedPrinter ....... : PMT : = Tesia PMT
MappedPrinter ....... : TesiaPort : = Tesia
MappedPrinter ....... : NVM5 : = envoyer au document Center
MappedPrinter de Dentrix ....... : XPSPort : = document Writer
MappedPrinter de Microsoft XPS ....... : Microsoft documentent le port d'auteur de formation image : = image Writer
MappedPrinter de document de Microsoft Office ....... : HPFAX : = HP LaserJet 3050_3055_3390_3392 Fax
MappedPrinter ....... : DOT4_001 = HP LaserJet 3050 séries PCL 6 (copie 1)
MappedPrinter ....... : IP_ 170.11.115.21 = Canon iR5000-6000-L1 PCL5e CP Barn
--------------le

selon là la personne, ils peuvent avoir plus ou moins d'imprimeurs. le


When I a installé le code semblable à l'autre fields
------------------
si parti (xR, 13) = cellules de « MappedPrinter » Then

(zZ, 23) = bonne (xR, Len (xR) - 22) extrémité If
du

--------------------le
This montre seulement le bout de l'information tracée d'imprimeur de « IP_ 170.11.115.21 = de

So de grange de Canon iR5000-6000-L1 PCL5e CP " qu'elle doit faire une boucle sur elle-même chaque fois que elle ont vu MappedPrinter, créant une corde qui se développera (avoir peut-être une certaine sorte de texte de séparateur s'est ajouté entre l'info.

Up au dessus du manuscrit de VB, j'ont créé une variable « printerInfo comme du

Below de corde " est le code de VBS du Macro
class= > " clair " de
> de " codeSnippet " de class= de
class= " lineNumbers " de
class= de
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 " de l'id= " codeSnippet828281 de

Réponse : Le manuscrit de VBS dans le macro pour tirer les lignes multiples des données a eu besoin à partir du dossier

Remplacer le votre si le rapport avec l'extrait ci-dessous… ceci emploiera un délimiteur de point-virgule.

Vous pourriez répéter ceci avec chacune de vos sections.
1 :
2 :
3 :
4 :
5 :
6 :
7 :
Si parti (xR, 13) = « MappedPrinter » puis
                Si cellules (zZ, 23) = "" alors
                    Cellules (zZ, 23) = droit (xR, Len (xR) - 22)
                Autrement
                    Cellules (zZ, 23) = cellules (zZ, 23) et « ;  » Et droit (xR, Len (xR) - 22)
                Finir si
            Finir si
Autres solutions  
  •  MS Excel 2007 et pdf - l'exportation vers le pdf prend de longues heures !
  •  Dans le Perl, comment j'ajoute une valeur à la liste, puis le contrôle pour voir si la valeur existent avant d'ajouter une nouvelle valeur
  •  Comment fais j'initialiser de la HP BL460c G6 de san et de la HP XP 240000
  •  Comment fais j'employer une clef de permis de volume sur un ordinateur de HP avec du CD de restauration
  •  Emplacement primaire de deux SCCM dans l'annuaire actif
  •  L'initiateur et la HP D2D de l'iSCSI R2 du serveur 2008 de Windows GERCENT l'issue
  •  Stocker le dossier dans le mysql using connector.net et le champ de goutte
  •  Carte vidéo d'USB - bit 32 sur le matériel travaillant au niveau du bit 64 ?
  •  asp.net que j'essaye de convertir une forme de HTML en forme d'aspx ou ? ce qui jamais. Aide du besoin sur la façon dont à à elle.
  •  Winzip 12 issues de secours du travail ?
  •  
    programming4us programming4us