Beiträge von Stevenx

Stevenx

Blöd, da ich kein PHP kann Aber ich schau mir ein paar tutorials an.

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

Stevenx

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

Stevenx

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 ****
#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

[/autoit] [autoit][/autoit] [autoit]

$timeleft = $timeleft - 1
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!")

[/autoit] [autoit][/autoit] [autoit]

EndIf
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)
EndFunc

[/autoit]

MFG!

Stevenx

Gut. Aber das Logo.... ich schau das ich was für dich erstelle

MFG

EDIT: Hier ein neues Icon, falls es dich interessiert...

Stevenx

Danke, "Gemeinschaft"!! Jemand hat sich eingeloggt und alles gelöscht! Vorfall it schon beim Hoster gemeldet!

Stevenx

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

Stevenx

Ahh sorry verschrieben xDD Nachteil, wenn man am iPhone unterwegs ist…

Stevenx

Ich hab das halbe Internt zerstöbert ubd ohne FTP geht es nicht. Und es soll ja gerade nicht kompiliert sein…

MFG

Stevenx

Wollte eigentlich noch Kategorienübersicht einbauen und une Web-App erstellen...

MFG

Stevenx

[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 Interface

ACHTUNG!!
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 ****
#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
WEnd

[/autoit] [autoit][/autoit] [autoit]

Func _Fill_Listview()
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)

[/autoit] [autoit][/autoit] [autoit]

If $FTP_List[0] = 0 Then
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 ###

[/autoit] [autoit][/autoit] [autoit]

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
GUISetState( @SW_HIDE, $Form1)
ExitLoop

[/autoit] [autoit][/autoit] [autoit]

Case $Next
$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
WEnd

[/autoit] [autoit][/autoit] [autoit]

EndFunc

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

Func _CreateRestorePoint($sRestorePointName)
Local $objSystemRestore
$objSystemRestore = ObjGet("winmgmts:{impersonationLevel=impersonate}!root/default:SystemRestore")
If Not $objSystemRestore.createrestorepoint($sRestorePointName, 0, 100) = 0 Then SetError(1)
EndFunc

[/autoit]

Fü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.

Stevenx

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]

#include <Array.au3>
#include <File.au3>
_RunAction( "myownway.lima-city.de/MsgBoxStart.mow")
Func _RunAction($File)

[/autoit][autoit][/autoit][autoit]

$Type = IniRead( $File, "Informations", "Type", "ERROR")
$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

[/autoit]

Hoffe, ihr könnt mir helfen

MFG

Stevenx

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

Stevenx

Ein Freund von mir hat einen Mac und programiert mit C++ und C#

Stevenx

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
Author: Stefan Blagojevic
Version: 1.0 (ALPHA 1)

[/autoit] [autoit][/autoit] [autoit]

#ce ----------------------------------------------------------------------------
#Include <File.au3>

[/autoit] [autoit][/autoit] [autoit]

#cs****************************************************
_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) - 1

[/autoit] [autoit][/autoit] [autoit]

For $i = 1 to $array Step 2
IniWrite( $Ini, $Section, FileReadLine("Cachea.txt",$i), FileReadLine("Cachea.txt", $i + 1))
Next
FileClose( $Open)
FileDelete( "Cachea.txt")
EndFunc

[/autoit]

Hier nochmal die Info:

Spoiler anzeigen

[autoit]

#cs****************************************************
_Plist_ini
Flags: $Plist: The Path to the Plist File
$Ini: The Path to the INI File
$Section: The Sector Name
#ce****************************************************

[/autoit]

Also, probieren und kommentieren

MFG,

StevenX

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

Stevenx

OK, habe es nun verbessert:

Spoiler anzeigen

[autoit]

$Open = FileOpen( "Stations.plist", 128)
$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!")

[/autoit]

Allerdings kommt noch immer was falsches raus:

Spoiler anzeigen

Code

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.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

Alles anzeigen

Also die Zeichen sind verschoben und die Einträge sind doppelt. Was mache ich falsch?

Stevenx

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)
$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!")

[/autoit]

Das Problem ist, dass nur folgendes rauskommt:

Spoiler anzeigen

Code

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
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

Alles anzeigen

Hier die plist:

Spoiler anzeigen

XML

<?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>

Alles anzeigen

Gibt es eventuell eine plist UDF? Habe nämlich keine gefunden...

Danke für die Hilfe!

MFG

Stevenx

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

Stevenx

@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

Beiträge von Stevenx

MyOwnWay - User hilft User

MyOwnWay - User hilft User

MyOwnWay - User hilft User

iClick - tippst du noch oder klickst du schon?

Burning Keyboard - Wie schnell kannst du tippen?

MyOwnWay - User hilft User

Website öffnen?

MyOwnWay - User hilft User

MyOwnWay - User hilft User

MyOwnWay - User hilft User

MyOwnWay - User hilft User

Problem mit _ArrayDelete()

Blume feiert!

PLIST.au3 UDF - PLIST und INI vereinen

PLIST.au3 UDF - PLIST und INI vereinen

ISN AutoIt Studio

.plist konvertieren mit Problemen

.plist konvertieren mit Problemen

Warum ist ein Spiel mit vielen Spielern anspruchsvoller

Frage bezüglich Dateiupload