-
How's everyone tonite ? I'm ok except for this . I have the Following type
Code:
Public Type myFileTransfer
tSockIndex As String ' The socket they are on
Filename As String 'The file in transfer
Size As String ' The size of file
Ext As String ' the extention
FromNick As String ' who it's being sent to
State As String 'upload or download
Tonick As String 'who it's from
PacketSize As Long ' Size of packet
TotalCRC As Long ' Total CRC of FILE
ListeningSock As Integer
End Type
I Fill it with
Code:
Public arrFilesinTransfer() As myFileTransfer
ReDim Preserve arrFilesinTransfer(CurrentSends) 'initalize and preserve the array
arrFilesinTransfer(CurrentSends).Ext = parsedStats$(1)
arrFilesinTransfer(CurrentSends).Filename = parsedStats$(2)
arrFilesinTransfer(CurrentSends).FromNick = ConfigurationData.Username
arrFilesinTransfer(CurrentSends).PacketSize = ConfigurationData.PacketSize
arrFilesinTransfer(CurrentSends).Size = parsedStats$(0)
arrFilesinTransfer(CurrentSends).State = "Sending"
arrFilesinTransfer(CurrentSends).Tonick = Tonick$
arrFilesinTransfer(CurrentSends).TotalCRC = 10 'parsedStats$(3)
arrFilesinTransfer(CurrentSends).tSockIndex = Index
I'd like to get this into a comma delimited string
any ideas ?
[]P
-
Well that was easy
Code:
Public Function myFileTransfertypetoString(toConvert As Integer) As String
Dim ext, Filename, FromNick, PacketSize, State, Size, ToNick, TotalCRC, tSockIndex As String
ext = arrFilesinTransfer(toConvert).ext
Filename = arrFilesinTransfer(toConvert).Filename
FromNick = arrFilesinTransfer(toConvert).FromNick
PacketSize = arrFilesinTransfer(toConvert).PacketSize
Size = arrFilesinTransfer(toConvert).Size
State = arrFilesinTransfer(toConvert).State
ToNick = arrFilesinTransfer(toConvert).ToNick
' TotlaCRC = arrFilesinTransfer(toConvert).TotalCRC
tSockIndex = arrFilesinTransfer(toConvert).tSockIndex
myFileTransfertypetoString = ext & ":" & Filename & ":" & FromNick & ":" & _
PacketSize & ":" & State & ":" & Size & ":" & ToNick & ":" & TotalCRC & ":" & tSockIndex
