admin/P2EP_Toolkit
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

contacts export and edit

Browse Source
This commit is contained in:
sShemet
2026-02-01 21:51:44 +05:00
parent e8f00fef4d
commit f3c41f2781
6 changed files with 37 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
p2isPSX_CDToolkit/Additions.vb
View File

@@ -489,10 +489,13 @@ Partial Class Form1
Private Sub ConvertContact_Click(sender As Object, e As EventArgs) Handles ExportContact.Click
Dim baseDir = "D:\Games\PSX\Persona 2 - Batsu (NTSC-J) [SLPS-02825]\Export\UnRLE\"
Dim Dir = baseDir & If(CharContact.Checked, "0863_CharCONTC", "0864_DemnCONTC")
'Dim Dir = baseDir & If(CharContact.Checked, " 0862_PersCONTC", "0864_DemnCONTC")
Dim Japfiles = IO.Directory.GetFiles(Dir & "\SRC\", "*_U").ToList
Dim Engfiles = IO.Directory.GetFiles(Dir & "\SRC\", "*_E").ToList
Dim Japfiles = IO.Directory.GetFiles("D:\Games\PSX\Persona 2 - Batsu (NTSC-J) [SLPS-02825]\Export\UnRLE\0864_Btl_CONTC\SRC\", "*_U").ToList
Dim Engfiles = IO.Directory.GetFiles("D:\Games\PSX\Persona 2 - Batsu (NTSC-J) [SLPS-02825]\Export\UnRLE\0864_Btl_CONTC\SRC\", "*_E").ToList
Dim OutPut_Dir = "D:\Games\PSX\Persona 2 - Batsu (NTSC-J) [SLPS-02825]\Export\UnRLE\0864_Btl_CONTC\"
Dim scr = New ScriptTools
Dim cnt = 0
@@ -501,7 +504,8 @@ Partial Class Form1
Dim contact As String = scr.MakeContactExportFile(My.Computer.FileSystem.ReadAllBytes(fil), My.Computer.FileSystem.ReadAllBytes(Engfiles(Japfiles.IndexOf(fil))), cnt)
Dim filename = OutPut_Dir & Path.GetFileName(fil) & "_exp.txt"
Dim filename = Dir & "\" & Path.GetFileName(fil) & "_exp.txt"
Debug.WriteLine("Saving " & filename)
My.Computer.FileSystem.WriteAllText(filename, contact, False)
Next