[Release] Flyff-UDF: Reads Items

Kogoro

[FONT="Franklin Gothic Medium"][COLOR="Sienna"][SIZE="2"]Hi @ all
Hier release ich eine UDF welche die Items aus den verschiedenen Dateien lädt.
Die Anfrage kam von Cross aus diesem Fragethread.

Zurückgegeben wird ein 2D Array mit:

ID
Name
Text
PackMax
ItemKind1
Job
Sex
Cost

Als Parameter werden benötigt:

$PropItemFile: Pfad zur PropItem.txt
$PropItemFile_Txt: Pfad zur PropItem.txt.txt
$DefineItemFile: Pfad zur DefineItem.h

Ist aber erweiterbar. Dafür einfach fragen :wink:
UDF im Anhang ;)

Vielleicht braucht es ja noch jemand.

Beispielcode:

C

#include <GUIConstantsEx.au3>
#include <ListViewConstants.au3>
#include <WindowsConstants.au3>
#include <Array.au3>
#region ### START Koda GUI section ### Form=
$Form1_1 = GUICreate("Form1", 626, 446, 192, 124)
$ListView1 = GUICtrlCreateListView("ID|Name|Text|PackMax|ItemKind|Job|Sex|Cost", 0, 0, 617, 441)
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 0, 50)
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 1, 100)
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 2, 100)
GUISetState(@SW_SHOW)
#endregion ### END Koda GUI section ###


$Items=_Load_Items("propItem.txt","propItem.txt.txt","defineItem.h")
_Arraydisplay($items)
For $i=1 to Ubound($Items)-1
GUICtrlCreateListViewItem($Items[$i][0] & '|' & $Items[$i][1] & '|' & $Items[$i][2]& '|' & $Items[$i][3]& '|' & $Items[$i][4]& '|' & $Items[$i][5]& '|' &$Items[$i][6]& '|' & $Items[$i][7], $ListView1)
Next


While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			Exit


	EndSwitch
WEnd
;Copyright by Kogoro (mmorpg-core.com)

Alles anzeigen

[/SIZE][/COLOR][/FONT]

B00M

Schau ich mir an.

au3? wasn das für ein format?

>flying<

[COLOR="White"]

Zitat von B00M;116883

Schau ich mir an.
au3? wasn das für ein format?

AutoIt3[/COLOR]

internetfreak

[FONT="Comic Sans MS"][COLOR="DeepSkyBlue"][SIZE="3"] Boom
.au3 ist das offizielle Format für eine AutoIt3 Skriptdatei.
Such dir Scite oder öffne es mit dem Editor, klappt beides^^[/SIZE][/COLOR][/FONT]

B00M

Kann ma wer das Prog releasen, hab AutoIt nich installed

internetfreak

[FONT="Comic Sans MS"][COLOR="DeepSkyBlue"][SIZE="3"]Is kein Prog, ist ne UDF, also ne Sammlung von Funktionen, die du in deinem eigenen Programm nutzen kannst.
Hab jetzt den Code nich genau studioert, kann also nich sagen obs eiegntständig laufgen würde[/SIZE][/COLOR][/FONT]

Kogoro

[FONT="Franklin Gothic Medium"][COLOR="Sienna"][SIZE="2"]Also ich dachte, es wäre klar mit dem Format, wenn ich es im Autoitbereich release.
Der Code kann mit einem Arraydisplay eigentlich allein laufen. Sonst das Beispiel verwenden ;)
@ internetfreak: Das ist doch einfacher Code, warum verstehst du ihn denn nicht ^^[/SIZE][/COLOR][/FONT]

internetfreak

[FONT="Comic Sans MS"][COLOR="DeepSkyBlue"][SIZE="3"]ICh versteh den schon, habe den nurnoch nich durchgeschaut, bisher zu faulk gewesen, daher meine aussage xD[/SIZE][/COLOR][/FONT]

Chaosduckman

Naja ganz lustig aber wozu soll das gut sein?^^

sedas

hi ich habe da gleich mal ein problem mit deiner udf un zwar:
Error log: von mein script
Script:

Zitat

#include <GUIConstantsEx.au3>
#include <ListViewConstants.au3>
#include <WindowsConstants.au3>
#include <Array.au3>
#include <File.au3>
#include <Flyff_ItemReaderUDF.au3>
#region ### START Koda GUI section ### Form=
$Form1_1 = GUICreate("Form1", 626, 446, 192, 124)
$ListView1 = GUICtrlCreateListView("ID|Name|Text|PackMax|ItemKind|Job|Sex|Cost", 0, 0, 617, 441)
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 0, 50)
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 1, 100)
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 2, 100)
GUISetState(@SW_SHOW)
#endregion ### END Koda GUI section ###
$Items=_Load_Items("propItem.txt","propItem.txt.txt","defineItem.h")
For $i=1 to Ubound($Items)-1
GUICtrlCreateListViewItem($Items[$i][0] & '|' & $Items[$i][1] & '|' & $Items[$i][2]& '|' & $Items[$i][3]& '|' & $Items[$i][4]& '|' & $Items[$i][5]& '|' &$Items[$i][6]& '|' & $Items[$i][7], $ListView1)
Next
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
WEnd

Alles anzeigen

Error:

Zitat

>"C:\Programme\AutoIt3\SciTE\AutoIt3Wrapper\AutoIt3Wrapper.exe" /run /prod /ErrorStdOut /in "C:\Dokumente und Einstellungen\Systemroot\Desktop\Flyff Projekt\Itemread.au3" /autoit3dir "C:\Programme\AutoIt3" /UserParams
+>20:16:26 Starting AutoIt3Wrapper v.2.0.0.3 Environment(Language:0407 Keyboard:00000407 OS:WIN_XP/Service Pack 2 CPU:X64 OS:X86)
>Running AU3Check (1.54.19.0) from:C:\Programme\AutoIt3
+>20:16:27 AU3Check ended.rc:0
>Running:(3.3.6.0):C:\Programme\AutoIt3\autoit3.exe "C:\Dokumente und Einstellungen\Systemroot\Desktop\Flyff Projekt\Itemread.au3"
C:\Programme\AutoIt3\Include\Flyff_ItemReaderUDF.au3 (48) : ==> Array variable has incorrect number of subscripts or subscript dimension range exceeded.:
$NameLine = StringSplit($split[3], "_")
$NameLine = StringSplit(^ ERROR
->20:16:28 AutoIT3.exe ended.rc:1
+>20:16:29 AutoIt3Wrapper Finished
>Exit code: 1 Time: 2.609

Alles anzeigen

Udf Error abteil:

Zitat

For $i = 1 To UBound($PropItemFile_Array) - 1
$split = StringSplit($PropItemFile_Array[$i], @TAB)
If IsNumber(StringIsInt($split[1])) Then
$z = $z + 1
$NameLine = StringSplit($split[3], "_")
If $NameLine[$NameLine[0]] <> 0 Then
$Name = StringRegExpReplace($PropItemFile_Txt_Array[$NameLine[$NameLine[0]] + 1], "IDS_PROPITEM_TXT_[0-9]+", '')
$Text = StringRegExpReplace($PropItemFile_Txt_Array[$NameLine[$NameLine[0]] + 2], "IDS_PROPITEM_TXT_[0-9]+", '')
$ID = StringRegExpReplace(search($DefineItemFile_Array, $split[2]), "#define" & $split[2], '')
ReDim $Return_Array[UBound($Return_Array) + 1][8]
$Return_Array[UBound($Return_Array) - 1][0] = $ID
$Return_Array[UBound($Return_Array) - 1][1] = $Name
$Return_Array[UBound($Return_Array) - 1][2] = $Text
$Return_Array[UBound($Return_Array) - 1][3] = $split[5]
$Return_Array[UBound($Return_Array) - 1][4] = $split[6]
$Return_Array[UBound($Return_Array) - 1][5] = $split[9]
$Return_Array[UBound($Return_Array) - 1][6] = $split[12]
$Return_Array[UBound($Return_Array) - 1][7] = $split[13]
EndIf
EndIf
Next

Alles anzeigen

internetfreak

[FONT="Comic Sans MS"][COLOR="DeepSkyBlue"][SIZE="3"]Ganz einfach, du hast irgendwo vergessen, was zu tun, damit deine genutzte Variable zu nem Array wird^^
Dadurch wird auf ein nicht existierendes Abteil des Arrays zugegriffen und das ganze endet mit nem Error[/SIZE][/COLOR][/FONT]

sedas

du blos was ich habe ja die udf von ihn und sein code ^^ sry ich arbete selten mit arrays^^
wäre dir dankbar

internetfreak

[FONT="Comic Sans MS"][COLOR="DeepSkyBlue"][SIZE="3"]wenn du sein Code nimmst, dann musste auch dafür sorgen, dass alle Dateien da sind, wo sie gebraucht werden^^
Denke das hast du, von daher, woher der Fehler kommt ka, ich habe mich mit dem Code nich befasst bisher
Und wann ich das evt mal mach, ka, bin eher an C# dran (XNA machts FUN^^[/SIZE][/COLOR][/FONT]

sedas

soweit bin ich auch schonn^^

Kogoro

[FONT="Franklin Gothic Medium"][COLOR="Sienna"][SIZE="2"]Hast du die UDF im UDF Standartverzeichnis oder im Ordner, sonst musst du " verwenden bei include ;)
Stimmen die Pfade?
Kann sein, dass es auch am OS liegt. Bei mir geht es nämlich. (Vista)

versuch mal folgenden Code:

C

#include-once
#include <File.au3>


;=================================================================================================
; AutoIt Version:      3.3.6.1
; Language:            German
; Platform:            Vista,Win7
; Author:              Kogoro
; Requirements:        Stable,Beta
;=================================================================================================
; Credits:             Kogoro
;=================================================================================================
;
; Functions:
; _Load_Items
;
;=================================================================================================






;==============================================================================
; Name...........:  _Load_Items
; Version........: 	1.0.0.0
; Description ...:  Lädt alle Items aus der PropItem.txt, mitsamt der ID und dem Rest
; Parameters ....: 	$PropItemFile: Pfad zur PropItem.txt
;					$PropItemFile_Txt: Pfad zur PropItem.txt.txt
;					$DefineItemFile: Pfad zur DefineItem.h
; Return values .:  Success : Gibt einen Array (2D) zurück mit folgenen Sachen
;					[0]ID
;					[1]Name
;					[2]Text
;					[3]PackMax
;					[4]ItemKind1
;					[5]Job
;					[6]Sex
;					[7]Cost
;					No Success: Nichts
; Author ........:  Kogoro
; Example .......:  Nein
;=========================================================================================
Func _Load_Items($PropItemFile, $PropItemFile_Txt, $DefineItemFile)
	Local $PropItemFile_Txt_Array, $PropItemFile_Array, $DefineItemFile_Array, $Return_Array[2][8]
	_FileReadToArray($PropItemFile_Txt, $PropItemFile_Txt_Array)
	_FileReadToArray($PropItemFile, $PropItemFile_Array)
	_FileReadToArray($DefineItemFile, $DefineItemFile_Array)


	For $i = 1 To UBound($PropItemFile_Array) - 1
		$split = StringSplit($PropItemFile_Array[$i], @TAB)
		If IsNumber(StringIsInt($split[1])) Then
			$NameLine = StringSplit($split[3], "_")
			If $NameLine[$NameLine[0]] <> 0 Then
				$Name = StringRegExpReplace($PropItemFile_Txt_Array[$NameLine[$NameLine[0]] + 1], "IDS_PROPITEM_TXT_[0-9]+", '')
				$Text = StringRegExpReplace($PropItemFile_Txt_Array[$NameLine[$NameLine[0]] + 2], "IDS_PROPITEM_TXT_[0-9]+", '')
				$ID = StringRegExpReplace(search($DefineItemFile_Array, $split[2]), "#define" & $split[2], '')
				ReDim $Return_Array[UBound($Return_Array) + 1][8]
				$Return_Array[UBound($Return_Array) - 1][0] = $ID
				$Return_Array[UBound($Return_Array) - 1][1] = $Name
				$Return_Array[UBound($Return_Array) - 1][2] = $Text
				$Return_Array[UBound($Return_Array) - 1][3] = $split[5]
				$Return_Array[UBound($Return_Array) - 1][4] = $split[6]
				$Return_Array[UBound($Return_Array) - 1][5] = $split[9]
				$Return_Array[UBound($Return_Array) - 1][6] = $split[12]
				$Return_Array[UBound($Return_Array) - 1][7] = $split[13]
			EndIf
		EndIf
	Next
	Return $Return_Array
EndFunc   ;==>_Load_Items


;=================================================================================================
;internal functions and infos
;=================================================================================================


Func search($array, $suchwort)
	For $i = 0 To UBound($array) - 1
		If StringInStr($array[$i], $suchwort) > 0 Then
			Return StringStripWS($array[$i], 8)
		EndIf
	Next
EndFunc   ;==>search

Alles anzeigen

1.Post Beispiel geupdatet[/SIZE][/COLOR][/FONT]

sedas

neuer error^^:

Zitat

>"C:\Programme\AutoIt3\SciTE\AutoIt3Wrapper\AutoIt3Wrapper.exe" /run /prod /ErrorStdOut /in "C:\Dokumente und Einstellungen\Systemroot\Desktop\Flyff Projekt\Itemread.au3" /autoit3dir "C:\Programme\AutoIt3" /UserParams
+>18:29:35 Starting AutoIt3Wrapper v.2.0.0.3 Environment(Language:0407 Keyboard:00000407 OS:WIN_XP/Service Pack 2 CPU:X64 OS:X86)
>Running AU3Check (1.54.19.0) from:C:\Programme\AutoIt3
+>18:29:36 AU3Check ended.rc:0
>Running:(3.3.6.0):C:\Programme\AutoIt3\autoit3.exe "C:\Dokumente und Einstellungen\Systemroot\Desktop\Flyff Projekt\Itemread.au3"
C:\Programme\AutoIt3\Include\Flyff_ItemReaderUDF.au3 (50) : ==> Array variable has incorrect number of subscripts or subscript dimension range exceeded.:
$NameLine = StringSplit($split[3], "_")
$NameLine = StringSplit(^ ERROR
->18:29:38 AutoIT3.exe ended.rc:1
+>18:29:40 AutoIt3Wrapper Finished
>Exit code: 1 Time: 4.603

Alles anzeigen

sry das ich sone probleme mache^^

internetfreak

[FONT="Comic Sans MS"][COLOR="DeepSkyBlue"][SIZE="3"]Wieder irgendwas mit nem Array.
Du musst irgendwie was falsch machen^^
Denn der kann nich auf das Array zugreifen, was er aber muss und daher gibts nen Error.
Bzw das Array hat irgendwie nich die richtige Größe, so dass der Index drinvorkommt, den das Prog will[/SIZE][/COLOR][/FONT]

Kogoro

[FONT="Franklin Gothic Medium"][COLOR="Sienna"][SIZE="2"]Pack mal nach

Code

$split = StringSplit($PropItemFile_Array[$i], @TAB)

ein _ArrayDisplay($split) rein, und kopiere mal alles hierrein ;)
Schätze das bei XP falsch gesplittet wird :wink:[/SIZE][/COLOR][/FONT]

sedas

Zitat

#include-once
#include <File.au3>
;=================================================================================================
; AutoIt Version: 3.3.6.1
; Language: German
; Platform: Vista,Win7
; Author: Kogoro
; Requirements: Stable,Beta
;=================================================================================================
; Credits: Kogoro
;=================================================================================================
;
; Functions:
; _Load_Items
;
;=================================================================================================

;==============================================================================
; Name...........: _Load_Items
; Version........: 1.0.0.0
; Description ...: Lädt alle Items aus der PropItem.txt, mitsamt der ID und dem Rest
; Parameters ....: $PropItemFile: Pfad zur PropItem.txt
; $PropItemFile_Txt: Pfad zur PropItem.txt.txt
; $DefineItemFile: Pfad zur DefineItem.h
; Return values .: Success : Gibt einen Array (2D) zurück mit folgenen Sachen
; [0]ID
; [1]Name
; [2]Text
; [3]PackMax
; [4]ItemKind1
; [5]Job
; [6]Sex
; [7]Cost
; No Success: Nichts
; Author ........: Kogoro
; Example .......: Nein
;=========================================================================================
Func _Load_Items($PropItemFile, $PropItemFile_Txt, $DefineItemFile)
Local $PropItemFile_Txt_Array, $PropItemFile_Array, $DefineItemFile_Array, $Return_Array[2][8]
_FileReadToArray($PropItemFile_Txt, $PropItemFile_Txt_Array)
_FileReadToArray($PropItemFile, $PropItemFile_Array)
_FileReadToArray($DefineItemFile, $DefineItemFile_Array)
For $i = 1 To UBound($PropItemFile_Array) - 1
$split = StringSplit($PropItemFile_Array[$i], @TAB)
If IsNumber(StringIsInt($split[1])) Then
$NameLine = StringSplit($split[3], "_")
If $NameLine[$NameLine[0]] <> 0 Then
$Name = StringRegExpReplace($PropItemFile_Txt_Array[$NameLine[$NameLine[0]] + 1], "IDS_PROPITEM_TXT_[0-9]+", '')
$Text = StringRegExpReplace($PropItemFile_Txt_Array[$NameLine[$NameLine[0]] + 2], "IDS_PROPITEM_TXT_[0-9]+", '')
$ID = StringRegExpReplace(search($DefineItemFile_Array, $split[2]), "#define" & $split[2], '')
ReDim $Return_Array[UBound($Return_Array) + 1][8]
$Return_Array[UBound($Return_Array) - 1][0] = $ID
$Return_Array[UBound($Return_Array) - 1][1] = $Name
$Return_Array[UBound($Return_Array) - 1][2] = $Text
$Return_Array[UBound($Return_Array) - 1][3] = $split[5]
$Return_Array[UBound($Return_Array) - 1][4] = $split[6]
$Return_Array[UBound($Return_Array) - 1][5] = $split[9]
$Return_Array[UBound($Return_Array) - 1][6] = $split[12]
$Return_Array[UBound($Return_Array) - 1][7] = $split[13]
EndIf
EndIf
Next
Return $Return_Array
EndFunc ;==>_Load_Items
;=================================================================================================
;internal functions and infos
;=================================================================================================
Func search($array, $suchwort)
For $i = 0 To UBound($array) - 1
If StringInStr($array[$i], $suchwort) > 0 Then
Return StringStripWS($array[$i], 8)
EndIf
Next
EndFunc ;==>search

Alles anzeigen

immernoch^^

Kogoro

[FONT="Franklin Gothic Medium"][COLOR="Sienna"][SIZE="2"]Du solltest den folgenden Code laufen lassen:

C

#include-once
#include <File.au3>
#include <Array.au3>


;================================================= ================================================
; AutoIt Version: 3.3.6.1
; Language: German
; Platform: Vista,Win7
; Author: Kogoro
; Requirements: Stable,Beta
;================================================= ================================================
; Credits: Kogoro
;================================================= ================================================
;
; Functions:
; _Load_Items
;
;================================================= ================================================






;================================================= =============================
; Name...........: _Load_Items
; Version........: 1.0.0.0
; Description ...: Lädt alle Items aus der PropItem.txt, mitsamt der ID und dem Rest
; Parameters ....: $PropItemFile: Pfad zur PropItem.txt
; $PropItemFile_Txt: Pfad zur PropItem.txt.txt
; $DefineItemFile: Pfad zur DefineItem.h
; Return values .: Success : Gibt einen Array (2D) zurück mit folgenen Sachen
; [0]ID
; [1]Name
; [2]Text
; [3]PackMax
; [4]ItemKind1
; [5]Job
; [6]Sex
; [7]Cost
; No Success: Nichts
; Author ........: Kogoro
; Example .......: Nein
;================================================= ========================================
Func _Load_Items($PropItemFile, $PropItemFile_Txt, $DefineItemFile)
Local $PropItemFile_Txt_Array, $PropItemFile_Array, $DefineItemFile_Array, $Return_Array[2][8]
_FileReadToArray($PropItemFile_Txt, $PropItemFile_Txt_Array)
_FileReadToArray($PropItemFile, $PropItemFile_Array)
_FileReadToArray($DefineItemFile, $DefineItemFile_Array)


For $i = 1 To UBound($PropItemFile_Array) - 1
$split = StringSplit($PropItemFile_Array[$i], @TAB)
_arraydisplay($split)
If IsNumber(StringIsInt($split[1])) Then
$NameLine = StringSplit($split[3], "_")
If $NameLine[$NameLine[0]] <> 0 Then
$Name = StringRegExpReplace($PropItemFile_Txt_Array[$NameLine[$NameLine[0]] + 1], "IDS_PROPITEM_TXT_[0-9]+", '')
$Text = StringRegExpReplace($PropItemFile_Txt_Array[$NameLine[$NameLine[0]] + 2], "IDS_PROPITEM_TXT_[0-9]+", '')
$ID = StringRegExpReplace(search($DefineItemFile_Array, $split[2]), "#define" & $split[2], '')
ReDim $Return_Array[UBound($Return_Array) + 1][8]
$Return_Array[UBound($Return_Array) - 1][0] = $ID
$Return_Array[UBound($Return_Array) - 1][1] = $Name
$Return_Array[UBound($Return_Array) - 1][2] = $Text
$Return_Array[UBound($Return_Array) - 1][3] = $split[5]
$Return_Array[UBound($Return_Array) - 1][4] = $split[6]
$Return_Array[UBound($Return_Array) - 1][5] = $split[9]
$Return_Array[UBound($Return_Array) - 1][6] = $split[12]
$Return_Array[UBound($Return_Array) - 1][7] = $split[13]
EndIf
EndIf
Next
Return $Return_Array
EndFunc ;==>_Load_Items


;================================================= ================================================
;internal functions and infos
;================================================= ================================================


Func search($array, $suchwort)
For $i = 0 To UBound($array) - 1
If StringInStr($array[$i], $suchwort) > 0 Then
Return StringStripWS($array[$i], 8)
EndIf
Next
EndFunc ;==>search

Alles anzeigen

Dann taucht bei jedem Eintrag ein Fenster auf und von einem Brauche ich den Inhalt.[/SIZE][/COLOR][/FONT]

[Release] Flyff-UDF: Reads Items

Jetzt mitmachen!

SCHNELLZUGRIFF

HILFE & COMMUNITY

RECHTLICHES