[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:
#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]