[推荐]：得到*.slb所有幻灯片名称:

aeo

这是我用vb.net写的，才学几天，大家多关照:
我把幻灯的地址也放进去了，省的又再找一遍.

2. 
   
3. Function tohex(ByVal address() As Byte) As String
   
4.         Dim i As Integer = 3, a As String = "", b As String
   
5.         For i = 3 To 0 Step -1
   
6.             b = Hex(address(i))
   
7.             If (Len(b)) < 2 Then
   
8.                 b = "0" + b
   
9.             End If
   
10.             a = a + b
    
11.         Next i
    
12.         tohex = "&H" + a
    
13.     End Function
    
14. Function getallname(ByVal file As String, ByRef all() As String, ByRef all_add() As String) As String()
    
15.         Dim i As Integer, name(31), add(3) As Byte
    
16.         Dim allname(0), a, address(0) As String
    
17.         Dim fs As FileStream = New FileStream(file, FileMode.Open, FileAccess.Read)
    
18.         Dim r As New BinaryReader(fs)
    
19.         name = r.ReadBytes(32)
    
20.         While name(0) <> 0
    
21.             a = ""
    
22.             i = 0
    
23.             name = r.ReadBytes(32)
    
24.             add = r.ReadBytes(4)
    
25.             While name(i) <> 0
    
26.                 a = a + (Chr(name(i)))
    
27.                 i += 1
    
28.             End While
    
29.             If a <> "" Then
    
30.                 allname(allname.Length - 1) = a
    
31.                 ReDim Preserve allname(allname.Length)
    
32.                 address(address.Length - 1) = (tohex(add))
    
33.                 ReDim Preserve address(address.Length)
    
34.             End If
    
35.         End While
    
36.         fs.Close()
    
37.         all = allname
    
38.         all_add = address
    
39.         Return allname
    
40.     End Function
    

<br /> Function tohex(ByVal address() As Byte) As String<br />         Dim i As Integer = 3, a As String = "", b As String<br />         For i = 3 To 0 Step -1<br />             b = Hex(address(i))<br />             If (Len(b)) < 2 Then<br />                 b = "0" + b<br />             End If<br />             a = a + b<br />         Next i<br />         tohex = "&H" + a<br />     End Function<br /> Function getallname(ByVal file As String, ByRef all() As String, ByRef all_add() As String) As String()<br />         Dim i As Integer, name(31), add(3) As Byte<br />         Dim allname(0), a, address(0) As String<br />         Dim fs As FileStream = New FileStream(file, FileMode.Open, FileAccess.Read)<br />         Dim r As New BinaryReader(fs)<br />         name = r.ReadBytes(32)<br />         While name(0) <> 0<br />             a = ""<br />             i = 0<br />             name = r.ReadBytes(32)<br />             add = r.ReadBytes(4)<br />             While name(i) <> 0<br />                 a = a + (Chr(name(i)))<br />                 i += 1<br />             End While<br />             If a <> "" Then<br />                 allname(allname.Length - 1) = a<br />                 ReDim Preserve allname(allname.Length)<br />                 address(address.Length - 1) = (tohex(add))<br />                 ReDim Preserve address(address.Length)<br />             End If<br />         End While<br />         fs.Close()<br />         all = allname<br />         all_add = address<br />         Return allname<br />     End Function<br />

这是vb写的.

2. 
   
3. Public Function ReadSLBNames(strFile As String) As Variant
   
4.   Dim lngFile As Long
   
5.   Dim strTemp As String
   
6.   Dim lngCnt As Long
   
7.   Dim strVals() As String
   
8.   Dim varRet As Variant
   
9.   Dim intcnt As Integer
   
10.   On Error GoTo Err_Control
    
11.   lngFile = FreeFile()
    
12.   lngCnt = 33
    
13.   Open strFile For Binary As #lngFile
    
14.   Do While Not EOF(1)
    
15.     Seek lngFile, lngCnt
    
16.     Line Input #lngFile, strTemp
    
17.     If Not strTemp = vbNullString Then
    
18.       ReDim Preserve strVals(intcnt)
    
19.       strVals(intcnt) = strTemp
    
20.       intcnt = intcnt + 1
    
21.       lngCnt = lngCnt + 36
    
22.     Else
    
23.       Exit Do
    
24.     End If
    
25.   Loop
    
26.   Close lngFile
    
27.   varRet = strVals
    
28.   ReadSLBNames = varRet
    
29. Exit_Here:
    
30.   Exit Function
    
31. Err_Control:
    
32.   Select Case Err.Number
    
33.   'Add additional Case selections here
    
34.     Case Else
    
35.     MsgBox Err.Description
    
36.     Err.Clear
    
37.     Resume Exit_Here
    
38.   End Select
    
39. End Function
    

<br /> Public Function ReadSLBNames(strFile As String) As Variant<br />   Dim lngFile As Long<br />   Dim strTemp As String<br />   Dim lngCnt As Long<br />   Dim strVals() As String<br />   Dim varRet As Variant<br />   Dim intcnt As Integer<br />   On Error GoTo Err_Control<br />   lngFile = FreeFile()<br />   lngCnt = 33<br />   Open strFile For Binary As #lngFile<br />   Do While Not EOF(1)<br />     Seek lngFile, lngCnt<br />     Line Input #lngFile, strTemp<br />     If Not strTemp = vbNullString Then<br />       ReDim Preserve strVals(intcnt)<br />       strVals(intcnt) = strTemp<br />       intcnt = intcnt + 1<br />       lngCnt = lngCnt + 36<br />     Else<br />       Exit Do<br />     End If<br />   Loop<br />   Close lngFile<br />   varRet = strVals<br />   ReadSLBNames = varRet<br /> Exit_Here:<br />   Exit Function<br /> Err_Control:<br />   Select Case Err.Number<br />   'Add additional Case selections here<br />     Case Else<br />     MsgBox Err.Description<br />     Err.Clear<br />     Resume Exit_Here<br />   End Select<br /> End Function<br />