Read Dir and filename and pack it?

BlitzMax Forums/BlitzMax Programming/Read Dir and filename and pack it?

Caton

(Posted March) [#1]

How can it write each file and files inside directory and write directory name and would I do it from directory instead of using a list file.

		stream$="cfg1/app.txt"
		If Asc(stream$) Then CreateDir(UnpackDir$+stream$)

files.txt

2
test.txt
config\settings.txt

test.txt

Testing...

config\settings.txt

Height = 800
Width = 600
Depth = 32
Mode = 2

Packer.bb

Global rootpackdir$="game\"
Global NofFiles2,name2$
Setup()
Input():End

Function Seachforfiles()
SetupStartFile()
SetupAfterFile()
End Function

Function SetupStartFile()
NofFiles2=NofFiles2+1
f.file = New file
;Start File
If NofFiles2=1 Then
f\name$=name2$
f\stream=stream2
f\size=FileSize(rootpackdir$+name2$)
EndIf
End Function

Function SetupAfterFile()
For fl.filelist = Each filelist
NofFiles2=NofFiles2+1
f.file = New file
;After File
If Not NofFiles2=1 Then
f\name$=fl\name$
f\stream=fl\stream
f\size=FileSize(rootpackdir$+fl\name$)
f\offset=FileSize(rootpackdir$+name2$)
EndIf
Next
End Function

Function Setup()
ReadFileList("files.txt")
Seachforfiles()
PrintFiles()
WritePackFile("gamedata.pak")
End Function

Function PrintFiles()
;Start File
If NofFiles2=1 Then
Print(name2$)
EndIf
;After File
If Not NofFiles2=1
For f.file = Each file
Print(f\name$)
Next
EndIf
End Function

Function WritePackFile(filename$)
file=WriteFile(filename$)
If Not file Then RuntimeError("Couldn't Create Packfile")
If file Then
;File Info
For f.file = Each file
WriteString(file,f\name$)
WriteInt(file,f\offset)
WriteInt(file,f\size)
Next
For f.file = Each file
;File Data
file2=ReadFile(rootpackdir$+f\name$)
For j = 0 To f\size-1
WriteByte(file,ReadByte(file2));Bytes
Next
Next
CloseFile(file)
CloseFile(file2)
EndIf
End Function

Function ReadFileList(filename$)
file=ReadFile(filename$)
If file Then
NofFiles=ReadLine$(file)
name2$=ReadLine$(file)
For i=0 To NofFiles-2
fl.filelist = New filelist
fl\name$=ReadLine$(file)
Next
EndIf
End Function

Type File
Field name$,offset,size,stream
End Type

Type FileList
Field name$
End Type

Unpacker.bmx

Global NofFiles=2
Global list_file:TList=New TList
Global files:file
Setup()
Input()
End

Function Setup()
LoadPackFile("gamedata.pak")
PrintSetup()
End Function

Function PrintSetup()
For fil:file = EachIn list_file
Print(fil.name$)
Next
End Function

Function LoadPackFile(filename$)
f=ReadFile(filename$)
If Not f Then RuntimeError("Couldn't Load Packfile")
If f Then
'File Info
For i=0 To NofFiles-1
files = New file
files.length=ReadInt(f)
files.name$=ReadString$(f,files.length)
files.stream=ReadInt(f)
files.offset=ReadInt(f)
files.size=ReadInt(f)
list_file.AddFirst files
Next
pos=StreamPos(f)
'File Data
		For fil:file = EachIn list_file
		out = WriteFile(fil.name$)
			SeekStream(f,pos+fil.offset)
			For j = 0 To fil.size-1
				WriteByte(out, ReadByte(f))
			Next
			Next
CloseFile(f)
CloseFile(out)
EndIf
End Function

Type File
Field name$,offset,size,length
End Type

Caton

(Posted March) [#2]

Guys, I relly need help to detect directory or file from string.

like data\config.bin
settings.cfg

Henri

(Posted March) [#3]

Hi,

in Blitzmax you could do it in something like this:

Strict

Local s:String = "data\config.bin"

Local ar:String[] = s.Replace("/", "\").split("\")
If Not ar Then Print "String was empty"; End 'Always good to check before accessing objects

If ar.length > 1 Then
	Print "There are folders!"

	For Local i:Int = 0 Until ar.length - 1	'Everything else, but not the last, as that is a file
		
		Print "Folder: " + ar[i]
		
	Next
	
	Print "File: " + ar[ ar.length - 1 ]
Else
	'No folders, just file
	Print "File: " + ar[0]
EndIf

There are many ways, this is just one.

-Henri