Macro aide - Problèmes et solutions aux problèmes liés à Software

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 :

Option explicite

Stat publiques de sous-marin ()
  Faible intFN comme nombre entier
  Faible strLine comme corde
  Obscurcir strParsed () comme corde
  Obscurcir les dblSums (8 15) en tant que double
  Obscurcir les dblAvgs (8 15) en tant que double
  Obscurcir les dblVariances (8 15) en tant que double
  Obscurcir le lngCount en tant que longtemps
  Obscurcir les lngColumns (1 4) en tant que longtemps
  Obscurcir le strFilename comme corde
  lngColumns (1) = 8
  lngColumns (2) = 11
  lngColumns (3) = 12
  lngColumns (4) = 15
  Faible lngLoop en tant que longtemps
  Const CSVpath comme corde = « C:\Users\Mark\Downloads\ »
  '1gl-Factory-Low-SNR-Power-Level-.csv "
  
  intFN = FreeFile
  strFilename = Dir (CSVpath et « *.csv »)
  Faire jusqu'à Len (strFilename) = 0
    Ouvrir CSVpath et strFilename pour l'entrée comme #intFN
    Faire jusqu'à EOF (l'intFN)
      Rayer le #intFN d'entrée, strLine
      strParsed = dédoubler (strLine, « , ")
      '(I, L, M, N,   P) = 9, 12, 13, 15 avec une origine
      Pour le lngLoop = 1 à 4
        dblSums (lngColumns (lngLoop)) = dblSums (lngColumns (lngLoop)) + Val (strParsed (lngColumns (lngLoop)))
      Après
      lngCount = lngCount + 1
    Boucle
    #intFN étroit
    strFilename = Dir ()
  Boucle
    
  Pour le lngLoop = 1 à 4
    dblAvgs (lngColumns (lngLoop)) = dblSums (lngColumns (lngLoop)) /lngCount
  Après
  
  strFilename = Dir (CSVpath et « *.csv »)
  Faire jusqu'à Len (strFilename) = 0
    Ouvrir CSVpath et strFilename pour l'entrée comme #intFN
    Faire jusqu'à EOF (l'intFN)
      Rayer le #intFN d'entrée, strLine
      strParsed = dédoubler (strLine, « , ")
      Pour le lngLoop = 1 à 4
        dblVariances (lngColumns (lngLoop)) = dblVariances (lngColumns (lngLoop)) + (dblAvgs (lngColumns (lngLoop)) - Val (strParsed (lngColumns (lngLoop)))) ^ 2
      Après
    Boucle
    #intFN étroit
    strFilename = Dir ()
  Boucle
    
    lngCount de Debug.Print
    Pour le lngLoop = 1 à 4
      dblSums de Debug.Print (lngColumns (lngLoop)), dblAvgs (lngColumns (lngLoop)), dblVariances (lngColumns (lngLoop)), Sqr (dblVariances (lngColumns (lngLoop)))
    Après
  
  
Sous-marin d'extrémité

Question : Macro aide

Réponse : Macro aide