Discussion :

[billoux70]

Bonjour

Je suis débutant en vb6, je cherche à convertir ce code en c# qui permet de récupérer l'uuid d'un fichier CATIA mais voila j'ai bien du mal quelqu'un peut il m'aider :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
 
Function Read_UUID(sPath As String) As String
 
    Dim HEADER As String: HEADER = ";" & Chr(16) & String(16, 0) & ";" & Chr(16)
    Dim sText As String
    Dim lStart As Long
    Dim sUUID As String
    Dim n As Integer
 
   MsgBox (HEADER)
 
    'Initialize
    Read_UUID = ""
    'sPath = "C:\Documents and Settings\Franck\Mes documents\SmarTeam\Work\NeDrw-002361.CATDrawing"
 
    'Read file (use this way or your preferred procedure to read the file!!!)
    Open sPath For Binary Access Read As #1
    sText = Space(LOF(1))
    Get #1, , sText
    Close #1
 
    'Search header
    lStart = InStr(sText, HEADER)
 
    'If found, read the 16 following chars
    If lStart > 0 Then
 
        'Read characters, storing them by their hex value (00-FF)
        For n = 1 To 16
            Read_UUID = Read_UUID & Right("0" & Hex(Asc(Mid(sText, lStart + Len(HEADER) - 1 + n, 1))), 2)
        Next n
 
        'Insert spacers, so its formatted as "XXXXXXXX-XXXX-XXXX-XXXX-XXXXXXXXXXXX"
        'Read_UUID = Left(Read_UUID, 8) & "_" & Mid(Read_UUID, 9, 4) & "_" & Mid(Read_UUID, 13, 4) & "_" & Mid(Read_UUID, 17, 4) & "_" & Right(Read_UUID, 12)
        Read_UUID = Left(Read_UUID, 8) & "_" & Mid(Read_UUID, 14, 3) & "_" & Mid(Read_UUID, 17, 8) & "_" & Right(Read_UUID, 4)
        Read_UUID = LCase(Read_UUID)
    Else
 
        'If not found, just return "NOT FOUND"
        Read_UUID = "NOT FOUND"
 
    End If
 
   MsgBox (Read_UUID)
 
 
 
 
End Function

Merci beaucoup

[ppphil]

Je vais refaire ma sale langue... Mais si tu étais descendu de quelques ligne dans ce forum tu aurais trouvé...
Des fois que tu n'aurais pas de molette pour scroller la page , voici le lien
ici