kostenloser Webspace werbefrei: lima-city

in: VBS: Dateioperationen - Ich steh' auf'm Schlauch

geschrieben von cdas

function dateiAuslesen (strPfad)
    Dim objFSO, objFile, objReadFile, i

    Set objFSO = CreateObject("Scripting.FileSystemObject")

    Set objReadFile = objFSO.OpenTextFile(strPfad & "\index.html", 1)
    i = 0

    Do Until objReadFile.AtEndOfStream
        Redim Preserve arrData(i)
        arrData(i) = objReadFile.ReadLine
        i = i + 1
    Loop

    objReadFile.Close
    
    ' If index_3.html exists Then attach to arrData(i) End If
    
    dateiAuslesen = arrData
End Function

If objFSO.FileExists(strPfad & "\index_3.html") Then
	    Set objReadFile = objFSO.OpenTextFile(strPfad & "\index_3.html", 1)
        Do Until objReadFile.AtEndOfStream
	        Redim Preserve arrData(i)
	        arrData(i) = objReadFile.ReadLine
	        i = i + 1
	    Loop
        objReadFile.Close
End If

in: VBS: RegExp - Verwendung von Backreferences bei den Matches

geschrieben von cdas

in: ruby - Anfänge und Scraping

geschrieben von cdas

in: Zugriff verweigert: Drupal + Themekey

geschrieben von cdas

in: Zugriff verweigert: Drupal + Themekey

geschrieben von cdas

in: VBS, String im String finden: Fehler im Code

geschrieben von cdas

function dateienFinden()
    Dim objFSO, unterordner, i, Files

    Set objFSO = createobject("Scripting.FileSystemObject")
    Set ordner = objFSO.getfolder("E:\Users\chris\Documents\data\data\")
    i = 0
    
    Set Subfolders = ordner.subfolders

    If Subfolders.Count > 0 Then
        For each unterordner in Subfolders
            'Bekomme Pfad von index.html
            Redim Preserve arrListe(i)
            arrListe(i) = unterordner.Path '<--- Bug hockt vermutlich hier!
            i = i + 1
        next
    End If
    dateienFinden = arrListe
End Function

'function test  

temp = dateienFinden
For j = 0 To UBound(temp)
    output = output & temp(i)
Next
msgbox output

in: VBS, String im String finden: Fehler im Code

geschrieben von cdas

bandi999 schrieb: Hi,
Immer mit der Ruhe.

Eine Problemursache könnte sein, dass ReadLine immer nach der gelesenen Zeile stehen bleibt (genauer gesagt der Zeiger in der Datei zeigt auf das erste Zeichen nach der gelesenen Zeile). Um für die nächste Abfrage wieder am Dateianfang zu starten müstest du die Datei schließen und wieder öffnen.

i = 1
        Do Until objReadFile.AtEndOfStream
            Redim Preserve arrData(i)
            arrData(i) = objFile.ReadLine
            i = i + 1
        Loop

in: VBS, String im String finden: Fehler im Code

geschrieben von cdas

function extrahieren(suchterm,datei)
    
    Do Until datei.atEndOfStream
    strLine = datei.Readline
    
    'Vorne und hinten finden
    if inStr(1,strLine,suchterm,0)>0 then
        msgbox(strline)
        vorne = inStr(1,strLine,suchterm,0)
        msgbox(vorne)
        bisHinten = inStr(vorne, strLine,"<\",0) - vorne '<--- Gibt immer nur null-vorne zurück.
        msgbox(bishinten)
        wert = wert & mid(strline,vorne,bisHinten) 'Fehlermeldung
        extrahieren = extrahieren & wert
        exit function
    end if

    loop
    
end function

Set fs = CreateObject("Scripting.FileSystemObject")
Set datei = fs.OpenTextFile("<pfad>\index.html")

inStr(vorne, strLine,"<\",0)

function extrahieren(suchterm,datei)
    
    Do Until datei.atEndOfStream
    strLine = datei.Readline
    
    'Vorne und hinten finden
    if inStr(1,strLine,suchterm,0)>0 then
        msgbox(strline)
        vorne = inStr(1,strLine,suchterm,0)
        msgbox(vorne)
        bisHinten = inStr(vorne, strLine,"<\",0) - vorne '<--- Gibt immer nur null-vorne zurück.
        msgbox(bishinten)
        wert = wert & mid(strline,vorne,bisHinten)
        extrahieren = extrahieren & wert
        exit function
    end if

    loop

    
    
    
end function

function datensatz(datei)
    suchterme_definieren()
    Dim suchterme(2)

    'Jeweilige html-tags
    suchterme(0) = "vi-is1-prcp" 'Preis tag
    suchterme(1) = "EUR"
    suchterme(2) = "MEZ"

    max = (UBound(suchterme))
    for i = 0 to max
    datensatz = datensatz & extrahieren(suchterme(i), datei) & ","
    next
end function

'----------------------
'Datei öffnen/einlesen
'----------------------
Dim fs, datei

Set fs = CreateObject("Scripting.FileSystemObject")
Set datei = fs.OpenTextFile("e:\users\chris\desktop\index.html")

'----------------------------------
'In Datei schreiben/schließen
'----------------------------------
set fs = createobject("Scripting.filesystemobject")
set output = fs.opentextfile("e:\users\chris\desktop\output.txt",2,true,0)
output.write datensatz(datei)
datei.close
output.close

MsgBox "Abwischen...",0,"Fertig!"

in: MS Visual Studio 2010 - Meinungen, Einschätzungen

geschrieben von cdas

in: MySQL: Datensatz davor und danach

geschrieben von cdas

in: MySQL: Datensatz davor und danach

geschrieben von cdas

mergener schrieb:
P.S.
@cdas: Man kann und darf auch in Codetags einen Zeilenumbruch verwenden. Das würde 1. Der lesbarkeit und 2tens der darstellung der Seite helfen.

mergener schrieb:
nebenbei ist dies keine array sondern eine Funktion.

mergener schrieb:
Man merkt das du das aus einem Tutorial geklaut hast und keine Ahnung hast was du hier Postest.
Für mich reiner Guldenspam -.-

in: MySQL: Datensatz davor und danach

geschrieben von cdas

function make_db_read($table, $collist, $condition) {      
make_db_connection();      
if(empty($condition)) {        
  $read_qry = mysql_query("SELECT $collist FROM $table ORDER BY ID DESC");      } else {        
  $read_qry = mysql_query("SELECT $collist FROM $table WHERE $condition ORDER BY ID DESC") ;      
}      
mysql_close();      
return $read_qry;    
}

in: Uni Leben...

geschrieben von cdas

in: Was ist mit Verträgen bei einer Inflation?

geschrieben von cdas

qbuut schrieb:
Warum gibt es denn in Simbabwe kein Handynetz??? Gab es das nie, weil die so unterentwickelt sind???
Nein falsch die hatten Netze, nur ist es im Moment nicht möglich Handyverträge abzuschließen, weil die Inflation einfach zu hoch ist...

Beitrag geändert: 28.8.2008 22:47:55 von qbuut

in: Was ist mit Verträgen bei einer Inflation?

geschrieben von cdas

dpolich schrieb:
Grundsätzlich ist es so, dass Du und Dein Vetragspartner an den Vertrag gebunden seid. Und wenn die Zahlung von 25 € vereinbart ist, dann bleibt das auch bei einer Inflation so.

Jedoch gibt es im deutschen Recht für eine sehr starke Inflation eine Sonderregel: Wenn sich die Umstände unter denen der Vertrag geschlossen wurde dramatisch ändert, und die Einhaltung des Vertrags einem der beiden Vetragspartner nicht zuzumuten ist, kann nachverhandelt werden. Ob es sich im Falle einer starken Inflation um eine solche Ausnahme handelt, bleibt dann der Auslegung des Richters vorbehalten. Somit ist auch diese Situation (wie so vieles im deutschen Recht) Auslegungssache.

zip999 schrieb:
eine Euro inflation wird wahrscheinlich nichtpassieren. heutzutage ist der euro eine sehr starke waehrung

seth93 schrieb:
Im Moment wird aber auch alles teurer und die Bürger ärmer.
Die Reichen werden auch immer reicher.

in: Linux auf iBook laufen lassen

geschrieben von cdas

in: neues design

geschrieben von cdas

in: Linux auf iBook laufen lassen

geschrieben von cdas

in: was ist für euch ne richtig GUT designte homepage??

geschrieben von cdas

in: Spore

geschrieben von cdas

in: Vorstellung meines neuen Projekts

geschrieben von cdas

in: Wie findet ihr Design?

geschrieben von cdas

in: Shisha euer lieblings Tabak

geschrieben von cdas