Blöd, da ich kein PHP kann Aber ich schau mir ein paar tutorials an.
Beiträge von Stevenx
-
-
Ahh noch was. Dadurch, dass andere Sprachen als AutoIt oder Batch nicht angenommen werden, haben Programmierer praktisch keine Chance. Zwar können meisten eh Batch, aber ich will dann bei Batch die Internetverbindung unterbinden. Mal zur Sicherheit
MFG
-
Cheater Dieter: hätt eine einfache, aber clevere Idee: Wenn kein index.html /.php festlegt, gibt der server ja normalerweise den Inhalt zurück. Dadurch könnte man die den Quelltext auslesen, das unnötige löschen und die Dateien rausfiltern.
MFG
-
Hey
Ihr kennt bestimmt das geniale Minispiel von CyRoX, "Burning Keyboard". Mir hat es so gut gefallen, dass ich eine Maus Version "gescripted" habe. Eigentlich ganz simpel und von der Komplexität nicht mit BK zu vergleichen. Aber es geht ja eigentlich um das "Entertaiment"
. Genug geschrieben, hier die Anleitung:
- Auf den ersten Button klicken
- Warten
- dann auf das Label klicken - so schnell ihr könnt
- Namen eingeben, um den Score zu speichern
Script:Spoiler anzeigen
[autoit]#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
[/autoit] [autoit][/autoit] [autoit]
#AutoIt3Wrapper_Icon=icon.ico
#AutoIt3Wrapper_Outfile=iClick.exe
#AutoIt3Wrapper_Res_requestedExecutionLevel=asInvoker
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("iClick - by Stefan Blagojevic", 654, 349, 192, 124)
GUISetBkColor( 0xFFFFFF, $Form1)
Global $ScoreIni[500][500]
$Label1 = GUICtrlCreateLabel("iClick - click to start", 160, 104, 654, 349)
GUICtrlSetFont(-1, 30, 400, 0, "Segoe UI")
GUICtrlSetState( $Label1, $GUI_HIDE)
GUICtrlSetState( $Label1, $GUI_DISABLE)
$Progr = GUICtrlCreateProgress( 0, 0, 654, 20)
GUICtrlSetState( $Progr, $GUI_HIDE)
$Start = GUICtrlCreateButton( "iClick - click to start", 160, 104, 349, 58)
$Score = GUICtrlCreateButton( "HighScore", 160, 173, 349,58)
$settings = IniRead( "Settings.ini", "Settings", "Time", "10")
$timeleft = $settings
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
Global $i,$Progr,$Name,$line
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Score
_ScoreRead()
Case $Start
GUICtrlSetState( $Score, $GUI_HIDE)
GUICtrlSetState( $Score, $GUI_DISABLE)
GUICtrlSetState( $Start, $GUI_HIDE)
GUICtrlSetState( $Start, $GUI_DISABLE)
GUICtrlSetState( $Label1, $GUI_ENABLE)
GUICtrlSetState( $Label1, $GUI_SHOW)
_Menu()
GUICtrlSetState( $Progr, $GUI_SHOW)
Case $Label1
$i = $i + 1
If mod ($i, 2 ) = 0 Then
GUISetBkColor( 0xDF0101, $Form1)
Else
GUISetBkColor(0x04B431,$Form1)
EndIf
GUICtrlSetData( $Label1, $i)
Beep( 800, 250)
EndSwitch
WEnd
Func timer()
If $timeleft > 0 Then$timeleft = $timeleft - 1
[/autoit] [autoit][/autoit] [autoit]
GUICtrlSetData($Progr, 100 / $timeleft)
Else
AdlibUnRegister("timer")
If $i <> "" Then
$Name = InputBox( "", "You clicked " & $i & " times! Please write your name to save the highscore, if available!")
_Score()
Else
MsgBox( 0, "", "You clicked 0 times!")EndIf
[/autoit]
GUISetBkColor( 0xFFFFFF, $Form1)
GUICtrlSetState( $Label1, $GUI_HIDE)
GUICtrlSetState( $Label1, $GUI_DISABLE)
GUICtrlSetState( $Score, $GUI_SHOW)
GUICtrlSetState( $Score, $GUI_ENABLE)
GUICtrlSetState( $Start, $GUI_ENABLE)
GUICtrlSetState( $Start, $GUI_SHOW)
GUICtrlSetState( $Progr, $GUI_HIDE)
$i = 0
$timeleft = $settings
GUICtrlSetData( $Label1, "iClick")
EndIf
EndFunc
Func _Menu()
Beep(500,500)
GUICtrlSetData( $Label1, "5")
Sleep(1000)
Beep(500,500)
GUICtrlSetData( $Label1, "4")
Sleep(1000)
Beep(500,500)
GUICtrlSetData( $Label1, "3")
Sleep(500)
Beep(500,250)
GUICtrlSetData( $Label1, "2")
Sleep(500)
Beep(500,250)
GUICtrlSetData( $Label1, "1")
Sleep(250)
Beep(500,100)
GUICtrlSetData( $Label1, "iClick!")
AdlibRegister( "timer", 1000)
EndFunc
Func _Score()
$Read = IniRead( "Settings.ini", "Highscore", $Name, "Error")
If $Read = "Error" Then
IniWrite( "Settings.ini", "Highscore", $Name, $i)
$Status = "You broke the Score!"
Else
If $Read < $i Then
IniWrite( "Settings.ini", "Highscore", $Name, $i)
$Status = "You broke the score!"
ElseIf $Read > $i Then
$Status = "You didn't broke the score! The score is: " & $Read
EndIf
EndIf
MsgBox( 0, "iClick", $Status)
EndFunc
Func _ScoreRead()
$ScoreIni = IniReadSection( "Settings.ini", "Highscore")
For $c = 1 to $ScoreIni[0][0]
$line&= $ScoreIni[$c][0] & ": " & $ScoreIni[$c][1] & @CRLF
Next
MsgBox( 0, "Score", $line)
EndFuncMFG!
-
Gut. Aber das Logo.... ich schau das ich was für dich erstelle
MFG
EDIT: Hier ein neues Icon, falls es dich interessiert...
-
Danke, "Gemeinschaft"!! Jemand hat sich eingeloggt und alles gelöscht! Vorfall it schon beim Hoster gemeldet!
-
Wo sind $Button1 , 2 und etc? Bitte kompletteN Script anzeigen. Und Wieso schließt du eine Schleife ab, wenn sie nicht mal geöffnet wurde
-
Ahh sorry verschrieben xDD Nachteil, wenn man am iPhone unterwegs ist…
-
Ich hab das halbe Internt zerstöbert ubd ohne FTP geht es nicht. Und es soll ja gerade nicht kompiliert sein…
MFG
-
Wollte eigentlich noch Kategorienübersicht einbauen und une Web-App erstellen...
MFG
-
[Blockierte Grafik: http://www.abload.de/img/startup9s99q.jpg]
MyOwnWay
Die Vorgeschichte: Wer kennt das nicht? Man will was an Windows ändern und sucht das ganze Internet nach dem richtigen Lösungsweg ab. Die Lösung: MyOwnWay. MOW ist eine Art "soziales Netzwerk", wo User ihre Tipps uploaden und andere sie anwenden können. Natürlich ohne Registry Kenntnisse. Der Ansatz: Man erstellt eine INI Datei mit den Informationen Beschreibung, Typ (AutoIt oder Batch) und ob ein Wiederherstellungspunkt notwendig ist. Danach fügt man den Script ein und uploaded es hoch. Das alles natürlich über mein Programm. Ich hoffe, es macht euch Spaß!
Was ich noch machen will:
Die MOW Dateien mit MyOwnWay öffnen (Wie funktioniert der Registry EIntrag?)
Eine "modernes" User InterfaceACHTUNG!!
Wegen dem neuen Update muss man MOW installieren, da er ein URL Protokoll installiert!!Der Code:
Spoiler anzeigen
[autoit]#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
[/autoit] [autoit][/autoit] [autoit]
#AutoIt3Wrapper_Icon=Logo.ico
#AutoIt3Wrapper_Outfile=Actions\MyOwnWay.exe
#AutoIt3Wrapper_Res_Comment=Change your Windows System - on your way!
#AutoIt3Wrapper_Res_Description=MyOwnWay
#AutoIt3Wrapper_Res_Fileversion=1.0.1.0
#AutoIt3Wrapper_Res_LegalCopyright=(C) LimeSoft Solutions
#AutoIt3Wrapper_Res_requestedExecutionLevel=requireAdministrator
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <Misc.au3>
#Include <File.au3>
#include <FTPEx.au3>
#include <ListViewConstants.au3>
#include <ComboConstants.au3>
#Include <Array.au3>
FileInstall( "Startup.jpg", "Startup.jpg")
FileInstall( "AutoIt3.exe", "AutoIt3.exe")
If $Cmdline[0] = 1 Then
_RunAction($Cmdline[1])
Else
MsgBox(16,"Error!", "Syntax error!")
EndIf
Global $File_Array[500]
Global $_CommandCommand
$SplashGUI = GUICreate( "MyOwnWay", 900,600,Default,Default,$WS_POPUPWINDOW, $WS_EX_CONTROLPARENT)
GUICtrlCreatePic( 'Startup.jpg',0,0,900,600)
GUICtrlCreateLabel("MyOwnWay 1.0.1", 0,0)
GUISetState(@SW_SHOW,$SplashGUI)
Sleep(3000)
GUISetState(@SW_HIDE,$SplashGUI)
_Fill_Listview()
#Region ### START Koda GUI section ### Form=D:\Administrator\Documents\StevenX Media\MyOwnWay\GUI.kxf
$Form1 = GUICreate("MyOwnWay", 608, 480, 192, 124)
$Program = GUICtrlCreateMenu("Program")
$About = GUICtrlCreateMenuItem("About MyOwnWay", $Program)
$Submit = GUICtrlCreateMenuItem("Submit a command", $Program)
$Refresh = GUICtrlCreateMenuItem("Refresh", $Program)
$_CommandCommand = GUICtrlCreateCombo("Select a Command", 16, 56, 569, 21)
$Label1 = GUICtrlCreateLabel("Select a command:", 16, 24, 95, 17)
$Description = GUICtrlCreateEdit("Select a command to view the description", 16, 96, 569, 257)
GUICtrlSetData(-1, "Description")
$Run = GUICtrlCreateButton("Run", 16, 376, 75, 25)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
_Fill_Listview()
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Refresh
_Fill_Listview()
Case $Run
_RunAction( GUICtrlRead( $_CommandCommand) & ".mow")
Case $About
MsgBox( 0, "About", "This is MyOwnWay Beta 1.0 Version Code: 1.0.1; By Stefan Blagojevic for LimeSoft Solutions; LimeSoft-Solutions.com")
Case $Submit
_Submit()
Case $_CommandCommand
InetGet( "http://myownway.lima-city.de/" & GUICtrlRead( $_CommandCommand)& ".mow", GUICtrlRead( $_CommandCommand) & ".mow",1)
GUICtrlSetData( $Description, IniRead(GUICtrlRead( $_CommandCommand)& ".mow","Informations", "Description", "Could not load description"))
EndSwitch
WEndFunc _Fill_Listview()
[/autoit] [autoit][/autoit] [autoit]
GUICtrlSetData($_CommandCommand, "")
$FTP_Open = _FTP_Open( "LimeCloud")
$FTP_Connect = _FTP_Connect( $FTP_Open, "ftp.lima-city.de", "myownway","GELÖSCHT")
If $FTP_Connect = 0 Then
MsgBox(0,"", "Can not connect to Server!")
Exit
EndIf
$FTP_List = _FTP_ListToArray( $FTP_Connect, 2)If $FTP_List[0] = 0 Then
[/autoit] [autoit][/autoit] [autoit]
MsgBox(0,"ERROR", "No entrys found!")
Exit
EndIf
$Liste = ""
For $i = 1 to $FTP_List[0]
$Liste &= StringTrimRight($FTP_List[$i],4) & "|"
Next
$Liste = StringReplace( $Liste, "|upload", "")
$Liste = StringReplace( $Liste, "|index","")
$Liste = StringReplace( $Liste, "_"," ")
GUICtrlSetData( $_CommandCommand, $Liste)
EndFunc
Func _RunAction($File)
TrayTip( "MyOwnWay", "MyOwnWay runs now the Action. This may take a while. Please wait...",30,1)
$Type = IniRead( $File, "Informations", "Type", "ERROR")
$RestorePoint_Request = IniRead( $File, "Informations", "Restore_Point", "ERROR")
_FileReadToArray( $File, $File_Array)
_ArrayDelete( $File_Array, 1)
_ArrayDelete( $File_Array, 1)
_ArrayDelete( $File_Array, 1)
_ArrayDelete( $File_Array, 1)
FileDelete( $File)
_FileWriteFromArray($File, $File_Array,1)
If $RestorePoint_Request = "yes" Then
_CreateRestorePoint("MyOwnWay File: " & $File)
EndIf
If $Type = "batch" Then
$File = StringReplace( $File, "mow", "bat")
Run( $File)
ElseIf $Type = "autoit" Then
ShellExecute( "AutoIt3.exe", $File)
EndIf
EndFunc
Func _Submit()
#Region ### START Koda GUI section ### Form=D:\Administrator\Documents\StevenX Media\MyOwnWay\Action_Submit_1.kxf
$Form1 = GUICreate("Creating a Action", 643, 545, 284, 3)
$Label1 = GUICtrlCreateLabel("Hello! Please fill in this informations:", 136, 16, 402, 31)
GUICtrlSetFont(-1, 20, 400, 0, "Miriam")
$Type = GUICtrlCreateCombo("Select Language", 8, 104, 601, 25, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL))
GUICtrlSetData( -1, "AutoIt|Batch")
$Name = GUICtrlCreateInput("The name of your Action", 8, 72, 601, 21)
$Description = GUICtrlCreateEdit("", 8, 136, 609, 113)
GUICtrlSetData(-1, "Description")
$Restore_Point = GUICtrlCreateCombo("Restore Point?", 8, 264, 609, 25, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL))
GUICtrlSetData(-1,"Yes|No")
$Next = GUICtrlCreateButton("Upload", 8, 480, 171, 49)
$Action_Edit = GUICtrlCreateEdit("", 8, 296, 609, 177)
GUICtrlSetData(-1, "Now, enter your action")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###While 1
[/autoit] [autoit][/autoit] [autoit]
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
GUISetState( @SW_HIDE, $Form1)
ExitLoopCase $Next
[/autoit] [autoit][/autoit] [autoit]
$File_Path = FileSaveDialog( "Where to save?", @ScriptDir, "MyOwnWay File (*.mow)")
IniWrite( $File_Path, "Informations", "Restore_Point", GUICtrlRead( $Restore_Point))
IniWrite( $File_Path, "Informations", "Description", GUICtrlRead( $Description))
IniWrite( $File_Path, "Informations", "Type", GUICtrlRead( $Type))
$Open = FileOpen( $File_Path,1)
FileWrite( $Open, GUICtrlRead( $Action_Edit))
MsgBox(0,"Finished", "Upload Site will now open! There, just select the MOW file!")
ShellExecute( "http://myownway.lima-city.de")
EndSwitch
WEndEndFunc
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]Func _CreateRestorePoint($sRestorePointName)
[/autoit]
Local $objSystemRestore
$objSystemRestore = ObjGet("winmgmts:{impersonationLevel=impersonate}!root/default:SystemRestore")
If Not $objSystemRestore.createrestorepoint($sRestorePointName, 0, 100) = 0 Then SetError(1)
EndFuncFür das Bild und CO die EXE: Klick!
MFG und viel Spaß beim Coden
StevenX
Update #1:
Verwendet nun php, welcher über Hyperlink an die MyOwnWayRunner.exe den Dateinamen übergibt. -
Hey
Ich arbeite (mal wieder ;)) an einem neuen Projekt. Und dafür muss ich die ersten 4 Zeilen einer Datei löschen. Und so hab ich _ArrayDelete verwendet. Allerdings werden die falschen Elemente gelöscht? Die Anzeige ist richtig.
[autoit]
[/autoit][autoit][/autoit][autoit]
#include <Array.au3>
#include <File.au3>
_RunAction( "myownway.lima-city.de/MsgBoxStart.mow")
Func _RunAction($File)$Type = IniRead( $File, "Informations", "Type", "ERROR")
[/autoit]
$RestorePoint_Request = IniRead( $File, "Informations", "Restore_Point", "ERROR")
_FileReadToArray( $File, $File_Array)
MsgBox( 0,"", $File_Array[1] & @CRLF & $File_Array[2] & @CRLF & $File_Array[3] & @CRLF & $File_Array[4])
_ArrayDisplay( $File_Array)
_ArrayDelete( $File_Array, 1)
_ArrayDelete( $File_Array, 2)
_ArrayDelete( $File_Array, 3)
_ArrayDelete( $File_Array, 4)
_ArrayDisplay( $File_Array)
FileDelete( $File)
_FileWriteFromArray($File, $File_Array,1)
If $RestorePoint_Request = "yes" Then
_CreateRestorePoint("MyOwnWay File: " & $File)
EndIf
If $Type = "batch" Then
$File = StringReplace( $File, "mow", "bat")
Run( $File)
ElseIf $Type = "autoit" Then
ShellExecute( "AutoIt3.exe", $File)
EndIf
Endfunc
Hoffe, ihr könnt mir helfenMFG
-
Alles Gute, Blume und: King STP, FirePanther, DFPWare und alle anderen auf der Erde! Und danke an die Glückwünsche an mich!
MFG
StevenX
-
Ein Freund von mir hat einen Mac und programiert mit C++ und C#
-
Hallo
Hier ist meine erste UDF. Da ich für HearTheRadio Mac PLIST kompatibel mit Windows machen muss, hab ich gleich eine UDF erstellt. Zur Zeit kann man nur PLIST in INI konvertieren. Und selbst das nur mit einer Sektion. Lange geredet, hier das Script:
Spoiler anzeigen
[autoit]#cs ----------------------------------------------------------------------------
[/autoit] [autoit][/autoit] [autoit]Plist UDF for AutoIt
[/autoit] [autoit][/autoit] [autoit]
Author: Stefan Blagojevic
Version: 1.0 (ALPHA 1)#ce ----------------------------------------------------------------------------
[/autoit] [autoit][/autoit] [autoit]
#Include <File.au3>#cs****************************************************
[/autoit] [autoit][/autoit] [autoit]
_Plist_ini
Flags: $Plist: The Path to the Plist File
$Ini: The Path to the INI File
$Section: The Sector Name
#ce****************************************************
Func _Plist_ini( $Plist, $Ini, $Section)
Global $array[500]
Global $Lines[500]
$Open = FileOpen( $Plist, 128)
$Text = FileRead( $Open)
$Text = StringTrimLeft( $Text,200)
$Text = StringTrimRight($Text,27)
$Text= StringStripWS($Text, 1+4)
$Text = StringReplace( $Text,"</key>","")
$Text = StringReplace( $Text,"<key>","")
$Text = StringReplace( $Text,"</string>","")
$Text = StringReplace( $Text,"<string>","")
$Text = StringSplit( $Text, @CRLF)
_FileWriteFromArray ( "Cachea.txt", $Text, 1)
_FileReadToArray( "Cachea.txt", $array)
$array = UBound( $array) - 1For $i = 1 to $array Step 2
[/autoit]
IniWrite( $Ini, $Section, FileReadLine("Cachea.txt",$i), FileReadLine("Cachea.txt", $i + 1))
Next
FileClose( $Open)
FileDelete( "Cachea.txt")
EndFuncHier nochmal die Info:
Spoiler anzeigen
[autoit]#cs****************************************************
[/autoit]
_Plist_ini
Flags: $Plist: The Path to the Plist File
$Ini: The Path to the INI File
$Section: The Sector Name
#ce****************************************************Also, probieren und kommentieren
MFG,
StevenX
-
Hey
Danke für dieses Projekt. Ich finde es sogar besser als SCiTE. Einen Wunsch: der Platz zum "scripten" ist etwas klein. Also bitte optional den Editor in einem extra Fenster öffnen. Aber sonst: Daumen hoch
MFG
-
OK, habe es nun verbessert:
Spoiler anzeigen
[autoit]$Open = FileOpen( "Stations.plist", 128)
[/autoit]
$Text = FileRead( $Open)
MsgBox( 0, "", $Text)
$Text = StringTrimLeft( $Text,200)
$Text = StringTrimRight($Text,27)
FileWrite( "Cache", $Text)
MsgBox( 0, "", $Text)
_FileReadToArray( "Cache", $array)
$Zeilen = _FileCountLines( "Cache")
MsgBox( 0, "Text", $array)
$Percent = 100 / $Zeilen
ProgressOn( "Working...", "We are working...")
For $i = 1 To $Zeilen Step 1
ProgressSet( $Zeilen * $Percent)
$Line_Text = StringStripWS( $array[$i],8)
$Line_TextSplit = StringReplace( $Line_Text, "<key>", "")
$Line_TextSplit = StringReplace( $Line_TextSplit, "</key>", "")
$Line_TextSplit = StringReplace( $Line_TextSplit, "<string>", "")
$Line_TextSplit = StringReplace( $Line_TextSplit, "</string>", "")
_FileWriteToLine( "Cache.txt", $i,$Line_TextSplit)
Next
ProgressOff()
MsgBox( 0, "FERTIG!", "FERTIG!")Allerdings kommt noch immer was falsches raus:
Spoiler anzeigen
Code
Alles anzeigenStreamStation http://streamUrl.com StreamStation2 http://streamUrl2.com StreamStation3 http://streamUrl3.com StreamStation4 http://streamUrl4.comStreamStation http://streamUrl.com StreamStation2 http://streamUrl2.com StreamStation3 http://streamUrl3.com StreamStation4 http://streamUrl4.comStreamStation http://streamUrl.com StreamStation2 http://streamUrl2.com StreamStation3 http://streamUrl3.com StreamStation4 http://streamUrl4.comStreamStation http://streamUrl.com StreamStation2 http://streamUrl2.com StreamStation3 http://streamUrl3.com StreamStation4 http://streamUrl4.comStreamStation http://streamUrl.com StreamStation2 http://streamUrl2.com StreamStation3 http://streamUrl3.com StreamStation4 http://streamUrl4.comStreamStation http://streamUrl.com StreamStation2 http://streamUrl2.com StreamStation3 http://streamUrl3.com StreamStation4 http://streamUrl4.comStreamStation http://streamUrl.com StreamStation2 http://streamUrl2.com StreamStation3 http://streamUrl3.com StreamStation4 http://streamUrl4.com StreamStation http://streamUrl.com StreamStation2 http://streamUrl2.com StreamStation3 http://streamUrl3.com StreamStation4 http://streamUrl4.comStreamStation http://streamUrl.com StreamStation2 http://streamUrl2.com StreamStation3 http://streamUrl3.com StreamStation4 http://streamUrl4.comStreamStation http://streamUrl.com StreamStation2 http://streamUrl2.com StreamStation3 http://streamUrl3.com StreamStation4 http://streamUrl4.comStreamStation http://streamUrl.com StreamStation2 http://streamUrl2.com StreamStation3 http://streamUrl3.com StreamStation4 http://streamUrl4.comStreamStation http://streamUrl.com StreamStation2 http://streamUrl2.com StreamStation3 http://streamUrl3.com StreamStation4 http://streamUrl4.comStreamStation http://streamUrl.com StreamStation2 http://streamUrl2.com StreamStation3 http://streamUrl3.com StreamStation4 http://streamUrl4.com
Also die Zeichen sind verschoben und die Einträge sind doppelt. Was mache ich falsch?
-
Hey
Da ich für eine Mac Umsetzung von HearTheRadio plist brauche, bín ich gerade dabei, die plist in ini zu konvertieren. Hier mein Script:
Spoiler anzeigen
[autoit]$Open = FileOpen( "Stations.plist", 128)
[/autoit]
$Text = FileRead( $Open)
MsgBox( 0, "", $Text)
$Text = StringTrimLeft( $Text,200)
$Text = StringTrimRight($Text,27)
FileWrite( "Cache", $Text)
$Zeilen = _FileCountLines( "Stations.plist")
MsgBox( 0, "", $Text)
_FileReadToArray( "Cache", $array)
MsgBox( 0, "Text", $array[1] & "=" & $array[2] & @CRLF & $array[3] & $array[4] & @CRLF & $array[$array[0]])
$Percent = 100 / $Zeilen
ProgressOn( "Working...", "We are working...")
For $i = 1 To $Zeilen Step 1
ProgressSet( $Zeilen * $Percent)
$Line_Text = StringStripWS( $array[$i],8)
$Line_TextSplit = StringReplace( $Line_Text, "<key>", "")
$Line_TextSplit = StringReplace( $Line_TextSplit, "</key>", "")
_FileWriteToLine( "Cache.txt", $i,$Line_TextSplit)
$Line_TextSplit = StringReplace( $Line_TextSplit, "<string>", "")
$Line_TextSplit = StringReplace( $Line_TextSplit, "</string>", "")
_FileWriteToLine( "Cache.txt", $i,$Line_TextSplit)
Next
ProgressOff()
MsgBox( 0, "FERTIG!", "FERTIG!")Das Problem ist, dass nur folgendes rauskommt:
Spoiler anzeigen
Code
Alles anzeigenStreamStation http://streamUrl.com StreamStation2 http://streamUrl2.com StreamStation3 http://streamUrl3.com StreamStation4 http://streamUrl4.comStreamStation http://streamUrl.com StreamStation2 http://streamUrl2.com StreamStation3 http://streamUrl3.com StreamStation4 http://streamUrl4.comStreamStation http://streamUrl.com StreamStation2 StreamStation2 <string>http://streamUrl.com</string> <string>http://streamUrl4.com</string>StreamStation StreamStation4 <string>http://streamUrl3.com</string> StreamStation3 <string>http://streamUrl2.com</string> StreamStation2 <string>http://streamUrl.com</string> <string>http://streamUrl4.com</string>StreamStation StreamStation4 <string>http://streamUrl3.com</string> StreamStation3 <string>http://streamUrl2.com</string> StreamStation2 <string>http://streamUrl.com</string> StreamStation
Hier die plist:
Spoiler anzeigen
XML
Alles anzeigen<?xml version="1.0" encoding="UTF-8"?> <!DOCTYPE plist PUBLIC "-//Apple//DTD PLIST 1.0//EN" "http://www.apple.com/DTDs/PropertyList-1.0.dtd"> <plist version="1.0"> <dict> <key>Stations</key> <dict> <key>StreamStation</key> <string>http://streamUrl.com</string> <key>StreamStation2</key> <string>http://streamUrl2.com</string> <key>StreamStation3</key> <string>http://streamUrl3.com</string> <key>StreamStation4</key> <string>http://streamUrl4.com</string> </dict> </dict> </plist>
Gibt es eventuell eine plist UDF? Habe nämlich keine gefunden...
Danke für die Hilfe!
MFG
-
Beispiel: WoW: das spiel hat auf einem serer mehrere Tausend Spieler. und die müssen geladen werden. inklusive wo sie sind, was sie tun und mit was sie kommunizieren. Wenn man hier eine HD Grafik nehmen würde, kämmst du gar nicht zum Spielen. Und bei Shootern ist es noch anspruchsvoller, da jeder mit jedem interagiert. So versteh ich das zumindest
MFG
-
@Dieter:
1. Bin Österreicher
2. Will ich nur den Upload von meinen Programmdateien (HearTheRadio usw.) ermöglichen. Außerdem arbeite ich an ein File Stream Projekt.MFG