Découpage de caractère

Sparks_hevs Messages postés 5 Date d'inscription jeudi 4 novembre 2004 Statut Membre Dernière intervention 3 décembre 2004 - 29 nov. 2004 à 14:02
econs Messages postés 4030 Date d'inscription mardi 13 mai 2003 Statut Membre Dernière intervention 23 décembre 2008 - 29 nov. 2004 à 14:36
Voilà j'ai un fichier texte comme celui là :
; DHCP3TAB - Please DO NOT delete this signature line.

[Version]
Number = 1

[Globals]
Config Options = 00 00 00 00 06 08 99 6D 0A 0B 99 6D 15 6E 4E 09 01 99 \
6D 06 07 99 6D 40 08
Subnet Attributes = \
"153.109.5.0(Sion-Electro-5)"

[Subnet : "153.109.5.0(Sion-Electro-5)"]
Subnet Address = 153.109.5.0
Subnet Mask = 255.255.255.0
Lease Time = 10800
Config Options = 00 00 00 00 03 04 99 6D 05 01
Domain Name = eiv.ch
Subnet Type = 1

[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

Merci de votre aide

1 réponse

econs Messages postés 4030 Date d'inscription mardi 13 mai 2003 Statut Membre Dernière intervention 23 décembre 2008 25
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.
0
Rejoignez-nous