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