class= " lineNumbers " 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 :
246 :
247 :
248 :
249 :
250 :
251 :
252 :
253 :
254 :
255 :
256 :
257 :
258 :
259 :
260 :
261 :
262 :
263 :
264 :
265 :
266 :
267 :
268 :
269 :
270 :
271 :
272 :
273 :
274 :
275 :
276 :
277 :
278 :
279 :
280 :
281 :
282 :
283 :
284 :
285 :
286 :
287 :
288 :
289 :
290 :
291 :
292 :
293 :
294 :
295 :
296 :
297 :
298 :
299 :
300 :
301 :
302 :
303 :
304 :
305 :
306 :
307 :
308 :
309 :
310 :
311 :
312 :
313 :
314 :
315 :
316 :
317 :
318 :
319 :
320 :
321 :
322 :
323 :
324 :
325 :
326 :
327 :
328 :
329 :
330 :
331 :
332 :
333 :
334 :
335 :
336 :
337 :
338 :
339 :
340 :
341 :
342 :
343 :
344 :
345 :
346 :
347 :
348 :
349 :
350 :
351 :
352 :
353 :
354 :
355 :
356 :
357 :
358 :
359 :
360 :
361 :
362 :
363 :
364 :
365 :
366 :
367 :
368 :
369 :
370 :
371 :
372 :
373 :
374 :
375 :
376 :
377 :
378 :
379 :
380 :
381 :
382 :
383 :
384 :
385 :
386 :
387 :
388 :
389 :
390 :
391 :
392 :
393 :
394 :
395 :
396 :
397 :
398 :
399 :
400 :
401 :
402 :
403 :
404 :
405 :
406 :
407 :
408 :
409 :
410 :
411 :
412 :
413 :
414 :
415 :
416 :
417 :
418 :
419 :
420 :
421 :
422 :
423 :
424 :
425 :
426 :
427 :
428 :
429 :
430 :
431 :
432 :
433 :
434 :
435 :
436 :
437 :
438 :
439 :
440 :
441 :
442 :
443 :
444 :
445 :
446 :
447 :
448 :
449 :
450 :
451 :
452 :
453 :
454 :
455 :
456 :
457 :
458 :
459 :
460 :
461 :
462 :
463 :
464 :
465 :
466 :
467 :
468 :
469 :
470 :
471 :
472 :
473 :
474 :
475 :
476 :
477 :
478 :
479 :
480 :
481 :
482 :
483 :
484 :
485 :
486 :
487 :
488 :
489 :
490 :
491 :
492 :
493 :
494 :
495 :
496 :
497 :
498 :
499 :
500 :
501 :
502 :
503 :
504 :
505 :
506 :
507 :
508 :
509 :
510 :
511 :
512 :
513 :
514 :
515 :
516 :
517 :
518 :
519 :
520 :
521 :
522 :
523 :
524 :
525 :
526 :
527 :
528 :
529 :
530 :
531 :
532 :
533 :
534 :
535 :
536 :
537 :
538 :
539 :
540 :
541 :
542 :
543 :
544 :
545 :
546 :
547 :
548 :
549 :
550 :
551 :
552 :
553 :
554 :
555 :
556 :
557 :
558 :
559 :
560 :
561 :
562 :
563 :
564 :
565 :
566 :
567 :
568 :
569 :
570 :
571 :
572 :
573 :
574 :
575 :
576 :
577 :
578 :
579 :
580 :
581 :
582 :
583 :
584 :
585 :
586 :
587 :
588 :
589 :
590 :
591 :
592 :
593 :
594 :
595 :
596 :
597 :
598 :
599 :
600 :
601 :
602 :
603 :
604 :
605 :
606 :
607 :
608 :
609 :
610 :
611 :
612 :
613 :
614 :
615 :
616 :
617 :
618 :
619 :
620 :
621 :
622 :
623 :
624 :
625 :
626 :
627 :
628 :
629 :
630 :
631 :
632 :
633 :
634 :
635 :
636 :
637 :
638 :
639 :
640 :
641 :
642 :
643 :
644 :
645 :
646 :
647 :
648 :
649 :
650 :
651 :
652 :
653 :
654 :
655 :
656 :
657 :
658 :
659 :
660 :
661 :
662 :
663 :
664 :
665 :
666 :
667 :
668 :
669 :
670 :
671 :
672 :
673 :
674 :
675 :
676 :
677 :
678 :
679 :
680 :
681 :
682 :
683 :
684 :
685 :
686 :
687 :
688 :
689 :
690 :
691 :
692 :
693 :
694 :
695 :
696 :
697 :
698 :
699 :
700 :
701 :
702 :
703 :
704 :
705 :
706 :
707 :
708 :
709 :
710 :
711 :
712 :
713 :
714 :
715 :
716 :
717 :
718 :
719 :
720 :
721 :
722 :
723 :
724 :
725 :
726 :
727 :
728 :
729 :
730 :
731 :
732 :
733 :
734 :
735 :
736 :
737 :
738 :
739 :
740 :
741 :
742 :
743 :
744 :
745 :
746 :
747 :
748 :
749 :
750 :
751 :
752 :
753 :
754 :
755 :
756 :
757 :
758 :
759 :
760 :
761 :
762 :
763 :
764 :
765 :
766 :
767 :
768 :
769 :
770 :
771 :
772 :
|
class= de
fonction >Public " de l'id= " codeSnippet805276 de 0 puis
compteur = contre- + 1000
Autrement
Finir si
S'InStr (StrCWEngineIn, StrClientEngineIn) > 0 puis
compteur = contre- + 1000
Autrement
Finir si
'***************************************************************************
'vérifier la famille
'' onde entretenue instring vers l'avant au client
Si FamilyInstr (StrCWEngineIn, StrClientEngineIn) = "" alors
Autrement
compteur = contre- + 100
Finir si
'***************************************************************************
'vérifier les typos
StrTypo = DecodeEngine (StrCWEngineIn, StrClientEngineIn)
Si StrTypo = « typo » puis
compteur = contre- + 10
Autrement
'ne faire rien
Finir si
'****************************************************************************
'obtenir les points de rang de caractère
intcount = CharacterRank (StrCWEngineIn, StrClientEngineIn)
compteur = contre- + intcount
'***************************************************************************
'' ***************************************************************************
'' Essai technique BHP
'Si CurrentProject.AllForms (« force ») .IsLoaded alors
'
'BHPIn = [formes] ! [Force] ! [CALC BHP]
'
'
'Autrement
'
'
'Finir si
la 'fin de comparent
Finir si
Finir si
GetEngineRank = contre- * 100
Fonction de fin
Fonction publique CharacterRank (StrEng1 comme corde, strEng2 comme corde) en tant que longtemps
Faible commutateur comme chronomètre
Faible lIndex en tant que longtemps
Faible lLoopPosition en tant que longtemps
Faible lCharacterPosition en tant que longtemps
Faible iCounter en tant que longtemps
Faible StrWantedCharacter comme corde
Faible StrTemp comme corde
'Placer commutateur = nouveau chronomètre
'sw.StartTimer
'rapporter à la corde plus courte en tant que des boucles d'avertissement de cette longueur et direction d'instr
Si Len (strEng2) < Len (StrEng1) puis
'les permuter
strEng2 = strEng2 + StrEng1
StrEng1 = parti (strEng2, Len (strEng2) - Len (StrEng1))
strEng2 = droit (strEng2, Len (strEng2) - Len (StrEng1))
Finir si
'obtenir le plus court len
lIndex = Len (StrEng1)
le 'strtemp devient égal à la plus longue corde car c'est celui que nous voulons raccourcir pour chaque boucle
StrTemp = strEng2
'boucle autour de corde
Pour le lLoopPosition = 1 au lIndex
'obtenir le caractère individuel commençant au début de la corde
StrWantedCharacter = mi (StrEng1, lLoopPosition, 1)
'obtenir la position de notre caractère de la plus longue corde
lCharacterPosition = InStr (strEng2, StrWantedCharacter)
le 'caractère a trouvé dans la plus longue corde
Si <> 0 d'InStr (StrTemp, StrWantedCharacter) puis
'enlever le caractère de la corde de temp
StrTemp = remplacent (StrTemp, mi (strEng2, lCharacterPosition, 1), "", 1)
'incrémenter le compteur
iCounter = iCounter + 1
Finir si
Prochain lLoopPosition
'processtime = sw.EndTimer et « millisecondes »
'Debug.Print sw.EndTimer
'iCounter de Debug.Print
CharacterRank = iCounter
Fonction de fin
Fonction publique NomRank (StrClient comme corde, CWNomIn comme double) comme nombre entier
Faible ValueIn en tant que double
Faible StrReturnedFromClientString comme corde
S'IsNull (CWNomIn) puis
ValueIn = 0
Autrement
ValueIn = CWNomIn
Finir si
StrReturnedFromClientString = GetCC (StrClient)
Si StrComp (CStr (ValueIn), StrReturnedFromClientString, 1) = faux puis
NomRank = 1
Sortir la fonction
Finir si
NomRank = 0
Fonction de fin
Fonction publique KWRank (de ClientIn variante aussi, CWKWIn que longtemps, varianceIn facultatif comme nombre entier) comme nombre entier
Faible ValueMin en tant que longtemps
Faible ValueMax en tant que longtemps
Faible ValueIn en tant que longtemps
Faible ValueCWIn en tant que longtemps
Obscurcir A en tant que longtemps
ValueCWIn = CWKWIn
Si (varianceIn) = 0 puis
ValueMin = ValueCWIn - 5
ValueMax = ValueCWIn + 5
Autrement
ValueMin = ValueCWIn - varianceIn
ValueMax = ValueCWIn + varianceIn
Finir si
Si ValueCWIn = puis ClientIn
KWRank = 2
Sortir la fonction
Autrement
Pour A = ValueMin à ValueMax
Si ClientIn = puis A
KWRank = 1
Sortir la fonction
Finir si
Après A
Finir si
KWRank = 0
Fonction de fin
Fonction publique BhpRank (de ClientIn variante aussi, CalcBHP que longtemps, varianceIn facultatif comme nombre entier) comme nombre entier
Faible ValueMin en tant que longtemps
Faible ValueMax en tant que longtemps
Faible ValueIn en tant que longtemps
Faible ValueCWIn en tant que longtemps
Obscurcir A en tant que longtemps
ValueCWIn = CalcBHP
Si (varianceIn) = 0 puis
ValueMin = ValueCWIn - 5
ValueMax = ValueCWIn + 5
Autrement
ValueMin = ValueCWIn - varianceIn
ValueMax = ValueCWIn + varianceIn
Finir si
Si ValueCWIn = puis ClientIn
BhpRank = 2
Sortir la fonction
Autrement
Pour A = ValueMin à ValueMax
Si ClientIn = puis A
BhpRank = 1
Sortir la fonction
Finir si
Après A
Finir si
BhpRank = 0
Fonction de fin
Fonction publique ValveRank (de ClientStr variante aussi, CWCylindersIn que le nombre entier)
Faible ValueIn comme nombre entier
Faible ClientValveCount en tant que longtemps
Faible CylinderCountIn en tant que longtemps
S'IsNull (CWCylindersIn) puis
ValueIn = 0
Autrement
CylinderCountIn = CWCylindersIn
Finir si
S'IsNull ([formes] ! [force] ! [VALVES PAR CYLINDRE]. Valeur) puis
ValueIn = 0
Autrement
ValueIn = [formes] ! [force] ! [VALVES PAR CYLINDRE]. Valeur * CylinderCountIn
ClientValveCount = GetNumValves (ClientStr)
Finir si
Si ValueIn = ClientValveCount et ValueIn > 0 puis
ValveRank = 1
Sortir la fonction
Finir si
ValveRank = 0
Fonction de fin
Fonction GetNumValves (texte)
Faible position comme nombre entier
Faire
position = InStr (position + 1, texte, « V »)
Si position > 2 puis
Si mi (texte, position - 2, 2) comme le « ## » puis
GetNumValves = Val (mi (texte, position - 2, 2))
Sortir la fonction
Finir si
Finir si
Si position > 1 puis
Si mi (texte, position - 1, 1) comme « # » puis
GetNumValves = Val (mi (texte, position - 1, 1))
Sortir la fonction
Finir si
Finir si
Faire une boucle tandis que position
GetNumValves = 0
Fonction de fin
Fonction publique FuelRank (StrClient, CWFuelIn comme corde) en tant que longtemps
Faible ValueIn comme corde
S'IsNull (CWFuelIn) puis
ValueIn = ""
Autrement
ValueIn = CWFuelIn
Finir si
Si StrComp (laissé (ValueIn, 1), StrClient, 1) = faux puis
FuelRank = 1
Sortir la fonction
Finir si
FuelRank = 0
Fonction de fin
Fonction publique DoorRank (ClientStr comme corde, CWDoorsIn comme nombre entier) comme nombre entier
Faible ValueIn comme nombre entier
Faible ClientDoorCount en tant que longtemps
S'IsNull (CWDoorsIn) puis
ValueIn = 0
Autrement
ValueIn = CWDoorsIn
ClientDoorCount = GetDoors (ClientStr)
Finir si
Si ValueIn = ClientDoorCount et ValueIn > 0 puis
DoorRank = 1
Sortir la fonction
Finir si
DoorRank = 0
Fonction de fin
Fonction publique TransmissionRank (ClientStr comme corde, CWTransmissionIn comme corde)
Faible ValueIn comme corde
S'IsNull (CWTransmissionIn) puis
ValueIn = ""
Autrement
ValueIn = CWTransmissionIn
Finir si
Si StrComp (ValueIn, ClientStr, 1) = faux puis
TransmissionRank = 1
Sortir la fonction
Finir si
TransmissionRank = 0
Fonction de fin
Fonction GetDoors (ClientStr comme corde) comme nombre entier
Faible regex comme objet
Faible allumette comme objet
Placer le regex = le CreateObject (« vbscript.regexp »)
'filtrer pour des numéros et « d séparés par l'espace »
regex. Modèle = « [0-9] + d »
'arrêter le cas
regex.IgnoreCase = rectifient
'créer l'objet
Placer l'allumette = le regex. Exécuter (ClientStr)
'placer ou obtenir la valeur
Si allumette. Compte > 0 puis GetDoors = équilibres (Val (allumette (0)))
'objet de mise à mort
Placer le regex = rien
Finir la fonction
Fonction publique CCRank (de ClientIn variante aussi, CWCCIn que longtemps, varianceIn facultatif comme nombre entier) comme nombre entier
Faible ValueMin en tant que longtemps
Faible ValueMax en tant que longtemps
Faible ValueIn en tant que longtemps
Faible ValueCWIn en tant que longtemps
Obscurcir A en tant que longtemps
ValueCWIn = CWCCIn
Si (varianceIn) = 0 puis
ValueMin = ValueCWIn - 5
ValueMax = ValueCWIn + 5
Autrement
ValueMin = ValueCWIn - varianceIn
ValueMax = ValueCWIn + varianceIn
Finir si
Si ValueCWIn = puis ClientIn
CCRank = 2
Sortir la fonction
Autrement
Pour A = ValueMin à ValueMax
Si ClientIn = puis A
CCRank = 1
Sortir la fonction
Finir si
Après A
Finir si
CCRank = 0
Fonction de fin
Fonction publique BhpStrRank (StrClient comme corde, CWBhp en tant que longtemps, désaccord facultatif comme nombre entier)
Faible StrCientln comme corde
Faible ValueMin en tant que longtemps
Faible ValueMax en tant que longtemps
Faible ValueCWIn en tant que longtemps
Obscurcir A en tant que longtemps
Obscurcir B en tant que longtemps
Obscurcir StrTemp comme corde
Obscurcir StrTemp2 comme corde
Obscurcir StrArray () comme corde
Obscurcir contre comme nombre entier
Obscurcir le teststr comme corde
S'IsNull (ValueCWIn) puis
ValueCWIn = 0
Autrement
ValueCWIn = CWBhp
Finir si
Si (varianceIn) = 0 puis
ValueMin = ValueCWIn - 5
ValueMax = ValueCWIn + 5
Autrement
ValueMin = ValueCWIn - varianceIn
ValueMax = ValueCWIn + varianceIn
Finir si
S'IsNull (ValueCWIn) = rectifient ou ValueCWIn = 0 puis
Autrement
Si <= 0 de Len (StrClient) ou IsNull (StrClient) puis
KWStrRank = 0
Sortir la fonction
Autrement
Si ValueCWIn = puis StrClient
BhpStrRank = 2
Sortir la fonction
Autrement
StrTemp = SplitNumeralandText (StrClient)
StrTemp2 = RegExpReplace (StrTemp, « [^0-9] », « ")
StrArray = s'est dédoublé (StrTemp2)
Pour A = LBound (StrArray ()) À UBound (StrArray ())
Pour B = ValueMin à ValueMax
Si (StrComp (StrArray (A), CStr (B), 1) = faux) puis
BhpStrRank = 1
Sortir la fonction
Finir si
Prochain B
Après A
Finir si
Finir si
Finir si
BhpStrRank = 0
Fonction de fin
Fonction publique KWStrRank (StrClient comme corde, CWKw en tant que longtemps, désaccord facultatif comme nombre entier)
Faible StrCientln comme corde
Faible ValueMin en tant que longtemps
Faible ValueMax en tant que longtemps
Faible ValueCWIn en tant que longtemps
Obscurcir A en tant que longtemps
Obscurcir B en tant que longtemps
Obscurcir StrTemp comme corde
Obscurcir StrTemp2 comme corde
Obscurcir StrArray () comme corde
Obscurcir contre comme nombre entier
Obscurcir le teststr comme corde
S'IsNull (ValueCWIn) puis
ValueCWIn = 0
Autrement
ValueCWIn = CWKw
Finir si
Si (varianceIn) = 0 puis
ValueMin = ValueCWIn - 5
ValueMax = ValueCWIn + 5
Autrement
ValueMin = ValueCWIn - varianceIn
ValueMax = ValueCWIn + varianceIn
Finir si
S'IsNull (ValueCWIn) = rectifient ou ValueCWIn = 0 puis
Autrement
Si <= 0 de Len (StrClient) ou IsNull (StrClient) puis
KWStrRank = 0
Sortir la fonction
Autrement
Si ValueCWIn = puis StrClient
KWStrRank = 2
Sortir la fonction
Autrement
StrTemp = SplitNumeralandText (StrClient)
StrTemp2 = RegExpReplace (StrTemp, « [^0-9] », « ")
StrArray = s'est dédoublé (StrTemp2)
Pour A = LBound (StrArray ()) À UBound (StrArray ())
Pour B = ValueMin à ValueMax
Si (StrComp (StrArray (A), CStr (B), 1) = faux) puis
KWStrRank = 1
Sortir la fonction
Finir si
Prochain B
Après A
Finir si
Finir si
Finir si
KWStrRank = 0
Fonction de fin
getTechDetail public de fonction (StrClient comme corde, TechSpec comme corde, désaccord facultatif comme nombre entier) comme nombre entier
'Faible StrCientln comme corde
'Faible ValueMin en tant que longtemps
'Faible ValueMax en tant que longtemps
'Faible ValueIn en tant que longtemps
'Obscurcir A en tant que longtemps
'Faible B en tant que longtemps
'Faible StrTemp comme corde
'Faible StrTemp2 comme corde
'Faible StrArray () comme corde
'Faible compteur comme nombre entier
'Faible teststr comme corde
Si StrClient = "" ou « 0 » puis
Autrement
Si (désaccord) = 0 puis désaccords = 5
S'IsNull (ValueIn) = rectifient ou ValueIn = 0 puis
Autrement
Si <= 0 de Len (StrClient) ou IsNull (StrClient) puis
getTechDetail = 0
Sortir la fonction
Autrement
Si ValueIn = puis StrClient
getTechDetail = 2
Sortir la fonction
Autrement
StrTemp = SplitNumeralandText (StrClient)
StrTemp2 = RegExpReplace (StrTemp, « [^0-9] », « ")
StrArray = s'est dédoublé (StrTemp2)
ValueMin = ValueIn - désaccord
ValueMax = ValueIn + désaccord
Pour A = LBound (StrArray ()) À UBound (StrArray ())
Pour B = ValueMin à ValueMax
Si (StrComp (StrArray (A), CStr (B), 1) = faux) puis
getTechDetail = 1
Sortir la fonction
Finir si
Prochain B
Après A
Finir si
Finir si
Finir si
Finir si
getTechDetail = 0
Fonction de fin
Fonction publique BodyRank (ClientStr comme corde)
Faible ValueIn comme corde
S'IsNull ([formes] ! [force] ! [Onde entretenue commune de corps dit]. Valeur) puis
ValueIn = ""
Autrement
ValueIn = [formes] ! [force] ! [Onde entretenue commune de corps dit]. Valeur
Finir si
Si StrComp (ValueIn, ClientStr, 1) = faux puis
BodyRank = 1
Sortir la fonction
Finir si
BodyRank = 0
Fonction de fin
|
