[Subnet Address Range : "121-124.Sion-Electro-5.DHCP.SYSTEM.SION.HEVs"]
Start Address = 153.109.5.121
End Address = 153.109.5.124
DHCP Server Reference = "DHCP_NWESRVC.SERVERS.SYSTEM.SION.HEVs"
Range Type = 2
DNS Update Option = 1
[Subnet Address Range : "126-133.Sion-Electro-5.DHCP.SYSTEM.SION.HEVs"]
Start Address = 153.109.5.126
End Address = 153.109.5.133
DHCP Server Reference = "DHCP_NWESRVC.SERVERS.SYSTEM.SION.HEVs"
Range Type = 2
DNS Update Option = 1
[Subnet Address Range : "134-135.Sion-Electro-5.DHCP.SYSTEM.SION.HEVs"]
Start Address = 153.109.5.134
End Address = 153.109.5.135
DHCP Server Reference = "DHCP_NWESRVC.SERVERS.SYSTEM.SION.HEVs"
Range Type = 2
DNS Update Option = 1
[Subnet Address Range : "138-140.Sion-Electro-5.DHCP.SYSTEM.SION.HEVs"]
Start Address = 153.109.5.138
End Address = 153.109.5.140
DHCP Server Reference = "DHCP_NWESRVC.SERVERS.SYSTEM.SION.HEVs"
Range Type = 2
DNS Update Option = 1
[Subnet Address Range : "141-149.Sion-Electro-5.DHCP.SYSTEM.SION.HEVs"]
Start Address = 153.109.5.141
End Address = 153.109.5.149
DHCP Server Reference = "DHCP_NWESRVC.SERVERS.SYSTEM.SION.HEVs"
Range Type = 2
DNS Update Option = 1
[Subnet Address Range : "150-188.Sion-Electro-5.DHCP.SYSTEM.SION.HEVs"]
Start Address = 153.109.5.150
End Address = 153.109.5.188
DHCP Server Reference = "DHCP_NWESRVC.SERVERS.SYSTEM.SION.HEVs"
Range Type = 2
DNS Update Option = 1
[Subnet Address Range : "189-196.Sion-Electro-5.DHCP.SYSTEM.SION.HEVs"]
Start Address = 153.109.5.189
End Address = 153.109.5.196
DHCP Server Reference = "DHCP_NWESRVC.SERVERS.SYSTEM.SION.HEVs"
Range Type = 2
DNS Update Option = 1
[Subnet Address Range : "202-206.Sion-Electro-5.DHCP.SYSTEM.SION.HEVs"]
Start Address = 153.109.5.202
End Address = 153.109.5.206
DHCP Server Reference = "DHCP_NWESRVC.SERVERS.SYSTEM.SION.HEVs"
Range Type = 2
DNS Update Option = 1
[Subnet Address Range : "211-217.Sion-Electro-5.DHCP.SYSTEM.SION.HEVs"]
Start Address = 153.109.5.211
End Address = 153.109.5.217
DHCP Server Reference = "DHCP_NWESRVC.SERVERS.SYSTEM.SION.HEVs"
Range Type = 2
DNS Update Option = 1
[Subnet Address Range : "28-30.Sion-Electro-5.DHCP.SYSTEM.SION.HEVs"]
Start Address = 153.109.5.28
End Address = 153.109.5.30
DHCP Server Reference = "DHCP_NWESRVC.SERVERS.SYSTEM.SION.HEVs"
Range Type = 2
DNS Update Option = 1
[Subnet Address Range : "31-40.Sion-Electro-5.DHCP.SYSTEM.SION.HEVs"]
Start Address = 153.109.5.31
End Address = 153.109.5.40
DHCP Server Reference = "DHCP_NWESRVC.SERVERS.SYSTEM.SION.HEVs"
Range Type = 2
DNS Update Option = 1
[Subnet Address Range : "43-49.Sion-Electro-5.DHCP.SYSTEM.SION.HEVs"]
Start Address = 153.109.5.43
End Address = 153.109.5.49
DHCP Server Reference = "DHCP_NWESRVC.SERVERS.SYSTEM.SION.HEVs"
Range Type = 2
DNS Update Option = 1
[Subnet Address Range : "50-50.Sion-Electro-5.DHCP.SYSTEM.SION.HEVs"]
Start Address = 153.109.5.50
End Address = 153.109.5.50
DHCP Server Reference = "DHCP_NWESRVC.SERVERS.SYSTEM.SION.HEVs"
Range Type = 2
DNS Update Option = 1
[Subnet Address Range : "51-90.Sion-Electro-5.DHCP.SYSTEM.SION.HEVs"]
Start Address = 153.109.5.51
End Address = 153.109.5.90
DHCP Server Reference = "DHCP_NWESRVC.SERVERS.SYSTEM.SION.HEVs"
Range Type = 2
DNS Update Option = 1
[Subnet Address Range : "91-91.Sion-Electro-5.DHCP.SYSTEM.SION.HEVs"]
Start Address = 153.109.5.91
End Address = 153.109.5.91
DHCP Server Reference = "DHCP_NWESRVC.SERVERS.SYSTEM.SION.HEVs"
Range Type = 2
DNS Update Option = 1
[Subnet Address Range : "92-99.Sion-Electro-5.DHCP.SYSTEM.SION.HEVs"]
Start Address = 153.109.5.92
End Address = 153.109.5.99
DHCP Server Reference = "DHCP_NWESRVC.SERVERS.SYSTEM.SION.HEVs"
Range Type = 2
DNS Update Option = 1
[Subnet Address Range : "Subnet Server.Sion-Electro-5.DHCP.SYSTEM.SION.HEVs"]
Start Address = 153.109.5.0
End Address = 153.109.5.0
DHCP Server Reference = "DHCP_NWESRVC.SERVERS.SYSTEM.SION.HEVs"
Range Type = 99
------------------------------------------------------------------
Je voudrais ouvrir le fichier, et réussir a faire l'adition du dernier chiffre de tout les "Start Address" et faire une adition du dernier chiffre de tout les "End Address" et mettre ces 2 nombres dans 2 textbox différent
econs
Messages postés4030Date d'inscriptionmardi 13 mai 2003StatutMembreDernière intervention23 décembre 200825 29 nov. 2004 à 14:36
Pour utiliser ce code, tu dois disposer de deux TextBox (Text1 et Text2)
De plus, il faut modifier le chemin d'accès au fichier texte (ici, c'est
"C:\repertoire\fichier.txt"
Dim NumFile As Long
Dim s As String
Dim tablo() As String
Dim sum_start As Long
Dim sum_end As Long
sum_start = 0
sum_end = 0
NumFile = FreeFile
Open "C:\repertoire\fichier.txt" For Input As #NumFile
While Not EOF(NumFile)
Line Input #NumFile, s
If InStr(1, s, "Start Address", vbTextCompare) > 0 Then
tablo = Split(s, ".", , vbTextCompare)
sum_start = sumstart + Val(tablo(UBound(tablo)))
End If
If InStr(1, s, "End Address", vbTextCompare) > 0 Then
tablo = Split(s, ".", , vbTextCompare)
sum_end = sum_end + Val(tablo(UBound(tablo)))
End If
Wend
Close #NumFile
Text1.Text = sum_start
Text2.Text = sum_end
Manu -------------------------------------------
Une question bien posée, c'est une chance de réponse bien adaptée.