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 :
|
ImportICS secondaire ()
Faible nom de fichier comme corde
nom de fichier = Application.GetOpenFilename (le « calendrier classe (*.ics), *.ics »)
Si le nom de fichier = « faux » sortent alors le sous-marin
Faible fso comme objet, solides totaux comme objet
Placer le fso = le CreateObject (« Scripting.FileSystemObject »)
Placer les solides totaux = le fso.OpenTextFile (nom de fichier, 1)
Obscurcir la ligne comme corde, r en tant que longtemps, dtStr comme corde, dtArr () comme corde
ligne = ts.ReadLine
r = 1
Faire jusqu'à ts.AtEndOfStream
Choisir le cas vrai
Enfermer à gauche (ligne, 2) = le « décollement »
Les cellules (r, « A ») = se sont dédoublées (ligne, » : ") (0)
le dtStr = remplacent (ligne, cellules (r, « A ») et » : « , "")
le dtArr = s'est dédoublé (remplacer (dtStr, « Z », ""), « T »)
Cellules (r, « B ») = DateSerial (laissé (dtArr (0), 4), mi (dtArr (0), 5, 2), droit (dtArr (0), 2)) _
+ TimeSerial (laissé (dtArr (1), 2), mi (dtArr (1), 3, 2), droit (dtArr (1), 2))
Le cas est parti (la ligne, 7) = « A CRÉÉ »
Les cellules (r, « A ») = se sont dédoublées (ligne, » : ") (0)
le dtStr = remplacent (ligne, cellules (r, « A ») et » : « , "")
le dtArr = s'est dédoublé (remplacer (dtStr, « Z », ""), « T »)
Cellules (r, « B ») = DateSerial (laissé (dtArr (0), 4), mi (dtArr (0), 5, 2), droit (dtArr (0), 2)) _
+ TimeSerial (laissé (dtArr (1), 2), mi (dtArr (1), 3, 2), droit (dtArr (1), 2))
Enfermer à gauche (ligne, 13) = le « LAST MODIFIED »
Les cellules (r, « A ») = se sont dédoublées (ligne, » : ") (0)
le dtStr = remplacent (ligne, cellules (r, « A ») et » : « , "")
le dtArr = s'est dédoublé (remplacer (dtStr, « Z », ""), « T »)
Cellules (r, « B ») = DateSerial (laissé (dtArr (0), 4), mi (dtArr (0), 5, 2), droit (dtArr (0), 2)) _
+ TimeSerial (laissé (dtArr (1), 2), mi (dtArr (1), 3, 2), droit (dtArr (1), 2))
Cas autrement
Les cellules (r, « A ») = se sont dédoublées (ligne, » : ") (0)
Les cellules (r, « B ») = remplacent (ligne, cellules (r, « A ») et » : « , "")
Extrémité choisie
ligne = ts.ReadLine
r = r+ 1
Boucle
Sous-marin d'extrémité
|
