Beiträge von i2c

  • Problem mit StringBetween

    Zitat von shadow667

    Hier wird's wahrscheinlich 'n Problem geben, wenn ein NC-Programm nach der Programmnummer (:0123) keinen Kommentar hat, was zwar selten aber doch von Zeit zu Zeit vorkommt

    Spoiler anzeigen
    [autoit]

    #Region - Timestamp
    ;2011-05-08 19:14:32
    #EndRegion
    #include<array.au3>
    $sPath = ""
    $sFileName = ""
    $hFile = FileOpen($sPath)
    $sFile = FileRead($hFile)
    $aResult = StringRegExp($sFile, '\:(\d+)\((.*)\)|\:(\d+)', 1, 1)
    If IsArray($aResult)Then
    For $element In $aResult
    $sFileName &= $element
    Next
    ConsoleWrite($sFileName & @CRLF)
    EndIf

    [/autoit]

  • Autoit Zufallsprinzip?

    Was soll das pushen nach 6 Minuten?

    Zu deiner Frage - kommt ganz drauf an, wo die Wortliste abgelegt ist. Steht sie zeilenweise in einer Textdatei, dann erstell eine Zufallszahl zwischen 1 und _FileCountLines() und lies dann die entsprechende Zeile per FileReadLine() aus.

  • Problem mit StringBetween

    Spoiler anzeigen
    [autoit]

    #Region - Timestamp
    ;2011-05-08 18:19:04
    #EndRegion
    #include<array.au3>
    $sPath = ""
    $hFile = FileOpen($sPath)
    $sFile = FileRead($hFile)

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

    $aResult = StringRegExp($sFile, '\:(\d+)\((.*)\)', 1, 1)
    If IsArray($aResult) And UBound($aResult) >= 2 Then
    $sFileName = $aResult[0] & "_" & $aResult[1]
    ConsoleWrite($sFileName & @CRLF)
    EndIf

    [/autoit]

  • C# Problem

    Dann war ich gestern halt einfach etwas zu flüchtig. Tut mir leid.
    Ist mir nur ein Rätsel, wie ich überhaupt darauf gekommen bin, das es so nicht funktionieren könnte. ?(
    Na egal. Beim nächsten mal nehm ich noch einen kräftigen Schluck aus der Kaffetasse, bevor ich solche Behauptungen aufstelle.

  • C# Problem

    Eijeijei ... jetzt wird's peinlich.
    Ich weiss nicht, ob Sortoc seinen Post gestern noch kurzfristig editiert hat aber irgendwas kam mir daran komisch vor. Zum testen hab ich den Code dann sicherheitshalber mal ausgeführt. Ergebnis - die vermutete Stringvrknüpfung.

    Hab die Datei jetzt nochmal hergestellt, darin fehlen ein paar Klammern:

    Code
    textBox3.Text = Convert.ToInt16(textBox1.Text) + Convert.ToInt16(textBox2.Text).ToString();


    Da wird's natürlich nichts mehr mit der Addition. Ob Sortoc das jetzt vorher so in seinem Post so hatte oder ich beim tippen einfach etwas verpeilt war - keine Ahnung. So wie er es jetzt in seinem Post hat, funktioniert's natürlich einwandfrei.

    Ohne ToString() würd's allerdings einen Fehler werfen, denn eine implizite Konvertierung von int zu string ist nicht möglich.

  • URL aufrufen und XML auslesen

    Spoiler anzeigen
    [autoit]

    #Region - Timestamp
    ;2011-05-07 21:37:22
    #EndRegion - Timestamp

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

    #include <_XMLDomWrapper.au3>
    #include <Array.au3>
    #include <Inet.au3>

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

    $array = _get("Verbotene Liebe")
    _ArrayDisplay($array)

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

    Func _get($sSearchstring)
    $sSearch = _INetExplorerCapable($sSearchstring)
    $sUrl = "http://www.onlinetvrecorder.com/index.php?aktion=search&api=true&future=true&searchterm=" & $sSearch
    $strXML = BinaryToString(InetRead($sUrl, 9), 4)
    _XMLLoadXML($strXML, "")
    $iCount = _XMLGetNodeCount("//SHOW")
    If $iCount > 0 Then
    For $i = 1 To $iCount
    $aTmp = _XMLGetChildren("//SHOW[" & $i & "]")
    _ArrayDisplay($aTmp)
    Next
    EndIf

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

    EndFunc ;==>_get_otv

    [/autoit]


    Ist es das, was du brauchst?

  • GUI Inputbox E-Mail erzwingen

    Spoiler anzeigen
    [autoit]

    #Region - Timestamp
    ;2011-05-07 20:06:26
    #EndRegion

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

    $sString = "hallo@gmx.de"
    $Result = StringRegExp($sString, '(?i)^[\w._%+-]+@[\w.-]+\.[A-Z]{2,6}$', 0,1)
    ConsoleWrite($Result & @CRLF)
    If $Result Then
    MsgBox(0,0, $sString & " ist eine EMail Adresse")
    Else
    MsgBox(0,0, $sString & " ist keine EMail Adresse")
    EndIf

    [/autoit]

  • Alle gleichen Strings in Datei1 mit einem String aus Datei2 ersetzen?

    Die Strings sind alle gleiche, haben aber keinen festen Wert? Ich versteh nur Bahnhof.
    Ein kleines Beispiel wie die Dateien aussehen wäre hilfreich gewesen. AUf deinem Screenshot
    ist es immer der selbe String.

    Spoiler anzeigen
    [autoit]


    $sString1 = "bdfjbjbd/sdkjshfn?Fid=abcdefghjkll&sdsd" & @CRLF & _
    "bdfjbaweetkd/?Fid=abcdefghjkll&sdsdsd" & @CRLF & _
    "bdfjbjbsdsd/shfn?Fid=abcdefghjkll&ewewe" & @CRLF & _
    "bdfjbjbd/sdssdsdd?Fid=abcdefghjkll&wewwew" & @CRLF & _
    "bdfjbjbd/sweshfn?Fid=abcdefghjkll&kwkekrkr"
    $sString2 = "Fid=xyzqwertz"

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

    $sString1 = StringRegExpReplace($sString1, '(Fid=.*\&)', $sString2)
    MsgBox(0,0,$sString1)

    [/autoit]

  • Alle gleichen Strings in Datei1 mit einem String aus Datei2 ersetzen?

    [autoit]


    $sString1 = "bdfjbjbd/sdkjshfn?Fid=abcdefghjkll" & @CRLF & _
    "bdfjbaweetkd/?Fid=abcdefghjkll" & @CRLF & _
    "bdfjbjbsdsd/shfn?Fid=abcdefghjkll" & @CRLF & _
    "bdfjbjbd/sdssdsdd?Fid=abcdefghjkll" & @CRLF & _
    "bdfjbjbd/sweshfn?Fid=abcdefghjkll"
    $sString2 = "Fid=xyzqwertz"

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

    $sString1 = StringRegExpReplace($sString1, 'Fid=abcdefghjkll', $sString2)
    MsgBox(0,0,$sString1)

    [/autoit]

  • Label flackert

    Ich würde mir die Daten von $dataToSet in ein temporäres Array schreiben.
    Bevor die Labels dann erneut aktualisiert werden, die neuen Daten mit $aTemp
    vergleichen und nur neu setzn, wenn es wirklich was neues gibt.
    Würde sich vlt. auh anbieten, die Labels in ein Array zu legen. Dann liesse sich das
    bequem in einer FOR Schleife erledigen.