[Source] eLeC BASE - DB Engine Sample, pure AutoIT

    • [Source] eLeC BASE - DB Engine Sample, pure AutoIT

      hey
      hab hier was für euch
      ich habs eben in ner stunne gemacht.
      Es ist ein Data Base Engine in purem AutoIT gecoded
      es ist nicht 100 prozentig fertig, damit ihr auch was dran ändern könnt.

      Am besten leßt ihr alles und dann startet ihr mal das sample.
      Das ganze funktioniert über Arrays, zum speichern hab ich FileWriteFromArray verwended, was ich aber modifizieren musste, da es nur eine Dimension unterstützt wobei ich 2mal 2 Dimensionen und einmal 3 Dimensionen verwende
      Die FileReadToArray Func muss noch gemodded werden.
      Dann geht das speichern und auslesen komplett.

      Was man noch machen könnte wären ein paar kleine funcs um bestimmte informationen herauszufinden.
      Und wer es anpacken möchte : ein DB Editor like NaviCat oder so ^^
      das wäre mit der enigine ziemlich einfach x)
      ich hab nur grad kopfschmerzen xD

      also ich hab das komplette grundgerüst fertig
      es is eigentlich sehr schnell.
      wenn es komplett seien sollte ( durch eure hilfe ), werd ich dazu nen serverprogramieren und ne udf um auf den server zu connecten und daten zu empfangen.
      vllt. noch ne Dll für C++/C# und vB oder so ^^

      "eLeC BASE"

      C-Quellcode

      1. #cs ----------------------------------------------------------------------------
      3. AutoIt Version: 3.3.1.1 (beta)
      4. Author: Jiyan Akgül
      7. Type: UDF
      8. UDF Name: " eLeC BASE "
      9. About UDF: A DATABASE for every usage and without sepctial types like "int,string,float,double,etc.."
      11. Functions:
      12. '->
      13. #ce ----------------------------------------------------------------------------
      15. #include <File.au3>
      16. #include <Array.au3>
      20. Dim $DATABASE[1001][5002] ; 10.000 Data Bases with 10.000 Tables
      21. Dim $TABLE[5001][1002][2] ; 10.000 Tables for 10.000 Rows
      22. Dim $LINES[5001][1002] ; 10.000 Tabels for 50.000 Lines
      24. Global $DB_ID, $T_ID, $L_ID
      25. Global $DATABASE, $TABLE, $LINES
      26. ;;; START SAMPLE >>>>>
      28. ;load normaly
      29. _elec_Load()
      31. ;add Things
      32. $Test_DB = _elec_CreateDB("Test DB")
      33. $Test_Table = _elec_CreateTable("Test Table")
      34. _elec_CreateRow("Test Row1", $Test_Table, "My Comment")
      35. _elec_CreateRow("Test Row2", $Test_Table, "Only a Test")
      36. _elec_CreateRow("Test Row3", $Test_Table, "Nur ein Test")
      37. $Test_Line = _elec_AddLine($Test_Table, "hi;hey;helo")
      41. ;show:
      42. $Read = _elec_ReadLine($Test_Table, $Test_Line)
      43. _ArrayDisplay($Read)
      45. ;;; END SAMPLE <<<<<
      49. Func _elec_Load()
      50. $DATABASE[0][0] = 0 ; 0 Databases registred
      51. $TABLE[0][0][0] = 0 ; 0 Tables registret
      52. $LINES[0][0] = 0 ; 0 Lines registred
      53. EndFunc ;==>_elec_Load
      55. Func _elec_Load_FromFile($DB_Link = "elec.db", $T_Link = "elec.t", $L_Link = "elec.l")
      56. _FileReadToArray($DB_Link, $DATABASE)
      57. _FileReadToArray($T_Link, $TABLE)
      58. _FileReadToArray($L_Link, $LINES)
      59. EndFunc ;==>_elec_Load_FromFile
      61. Func _elec_CreateTable($Table_Name, $DB_ID = -1)
      62. If $DB_ID = -1 Then $DB_ID = $DATABASE[0][0]
      63. $DATABASE[$DB_ID][0] = $DATABASE[$DB_ID][0] + 1
      64. $i = $DATABASE[$DB_ID][0]
      65. ConsoleWrite("$i=" & $i & @CRLF)
      66. $TABLE[$i][0][0] = 1
      67. $TABLE[$i][0][1] = $Table_Name
      68. $LINES[$i][0] = 0
      69. Return $i
      70. EndFunc ;==>_elec_CreateTable
      72. Func _elec_CreateRow($Row_Name, $T_ID = -1, $Comment = "")
      73. If $T_ID = -1 Then $T_ID = $TABLE[0][0]
      74. $TABLE[$T_ID][0][0] = $TABLE[$T_ID][0][0] + 1
      75. $LINES[0][0] = $LINES[0][0] + 1
      76. $i = $TABLE[$T_ID][0][0]
      77. $TABLE[$T_ID][$i][0] = $Row_Name
      78. $TABLE[$T_ID][$i][1] = $Comment
      80. Return $i
      81. EndFunc ;==>_elec_CreateRow
      83. Func _elec_AddLine($T_ID, $LINE)
      84. $LINES[0][0] = $LINES[0][0] + 1
      85. $LINES[$T_ID][0] = $LINES[$T_ID][0] + 1
      86. $i = $LINES[$T_ID][0]
      87. $LINES[$T_ID][$i] = $LINE
      89. Return $i
      90. EndFunc ;==>_elec_AddLine
      92. Func _elec_ReadLine($T_ID, $L_ID, $R_ID = 0)
      95. $LINE = StringSplit($LINES[$T_ID][$L_ID], ";")
      96. Local $LINE_[$LINE[0]+1]
      97. If $R_ID = 0 Then
      98. For $i = 1 To $LINE[0]
      99. $LINE_[$i] = $LINE[$i]
      100. Next
      101. Else
      102. $LINE_[0] = $LINE[$R_ID]
      103. EndIf
      105. Return $LINE_
      106. EndFunc ;==>_elec_ReadLine
      109. Func _elec_ReplaceLine($L_ID, $LINE)
      110. $LINES[$T_ID][$L_ID] = $LINE
      111. EndFunc ;==>_elec_ReplaceLine
      113. Func _elec_CreateDB($DB_Title)
      114. $DATABASE[0][0] = $DATABASE[0][0] + 1
      115. $i = $DATABASE[0][0]
      116. $DATABASE[$i][0] = 1
      117. $DATABASE[$i][1] = $DB_Title
      119. Return $i
      120. EndFunc ;==>_elec_CreateDB
      122. Func _elec_ListDB()
      123. $j = $DATABASE[0][0]
      124. Local $ListArr_DB[$j + 1][2]
      125. $ListArr_DB[0] = $j
      126. For $i = 1 To $j
      127. $ListArr_DB[$i][0] = $DATABASE[$i][0]
      128. $ListArr_DB[$i][1] = $DATABASE[$i][1]
      129. Next
      131. Return $ListArr_DB
      132. EndFunc ;==>_elec_ListDB
      134. Func _elec_Save($DB_Link = "elec.db", $T_Link = "elec.t", $L_Link = "elec.l")
      135. _FileWriteFromArray_1($DB_Link, $DATABASE)
      136. _FileWriteFromArray_2($T_Link, $TABLE)
      137. _FileWriteFromArray_1($L_Link, $LINES)
      138. EndFunc ;==>_elec_Save
      141. ;;;; NEEEDED AND MODDED FUNCS
      143. ; #FUNCTION# ====================================================================================================================
      144. ; Name...........: _FileWriteFromArray <<<modded for 2 DIMENSIONS>>>
      145. ; Author ........: Jos van der Zande <jdeb at autoitscript dot com>
      146. ; Modified.......: Updated for file handles by PsaltyDS at the AutoIt forums.
      148. ; ===============================================================================================================================
      149. Func _FileWriteFromArray_1($File, $a_Array)
      150. ; Check if we have a valid array as input
      151. If Not IsArray($a_Array) Then Return SetError(2, 0, 0)
      154. ; Open output file for overwrite by default, or use input file handle if passed
      155. Local $hFile
      156. If IsString($File) Then
      157. $hFile = FileOpen($File, 2)
      158. Else
      159. $hFile = $File
      160. EndIf
      161. If $hFile = -1 Then Return SetError(1, 0, 0)
      163. ; Write array data to file
      164. Local $ErrorSav = 0
      165. For $x = 0 To UBound($a_Array)-1
      166. For $y = 0 To UBound($a_Array, 2)-1
      168. If FileWrite($hFile, $a_Array[$x][$y] & @CRLF) = 0 Then
      169. $ErrorSav = 3
      170. ExitLoop
      171. EndIf
      172. Next
      173. Next
      175. ; Close file only if specified by a string path
      176. If IsString($File) Then FileClose($hFile)
      178. ; Return results
      179. If $ErrorSav Then
      180. Return SetError($ErrorSav, 0, 0)
      181. Else
      182. Return 1
      183. EndIf
      184. EndFunc ;==>_FileWriteFromArray_1
      186. ; #FUNCTION# ====================================================================================================================
      187. ; Name...........: _FileWriteFromArray <<<modded for 3 DIMENSIONS>>>
      188. ; Author ........: Jos van der Zande <jdeb at autoitscript dot com>
      189. ; Modified.......: Updated for file handles by PsaltyDS at the AutoIt forums.
      191. ; ===============================================================================================================================
      192. Func _FileWriteFromArray_2($File, $a_Array)
      193. ; Check if we have a valid array as input
      194. If Not IsArray($a_Array) Then Return SetError(2, 0, 0)
      197. ; Open output file for overwrite by default, or use input file handle if passed
      198. Local $hFile
      199. If IsString($File) Then
      200. $hFile = FileOpen($File, 2)
      201. Else
      202. $hFile = $File
      203. EndIf
      204. If $hFile = -1 Then Return SetError(1, 0, 0)
      206. ; Write array data to file
      207. Local $ErrorSav = 0
      208. For $x = 0 To UBound($a_Array)-1
      209. For $y = 0 To UBound($a_Array, 2)-1
      210. For $z = 0 to UBound($a_Array,3)-1
      211. If FileWrite($hFile, $a_Array[$x][$y][$z] & @CRLF) = 0 Then
      212. $ErrorSav = 3
      213. ExitLoop
      214. EndIf
      215. Next
      216. Next
      217. Next
      219. ; Close file only if specified by a string path
      220. If IsString($File) Then FileClose($hFile)
      222. ; Return results
      223. If $ErrorSav Then
      224. Return SetError($ErrorSav, 0, 0)
      225. Else
      226. Return 1
      227. EndIf
      228. EndFunc ;==>_FileWriteFromArray_1
      Alles anzeigen


      have fun ;)

      gez :: *electriZer*

    • Werbung zur Unterstützung des Forums ( Bitte AddBlocker deaktivieren )