vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
 Schützen Sie Ihre Software vor Software-Piraterie - mit sevLock 1.0 DLL!  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2024
 
zurück

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Fortgeschrittene Programmierung
Re: String auf vielen Einzelteilen zusammensetzen 
Autor: Benne
Datum: 25.04.19 17:28
Hi Zardoz,

wieder was gelernt. Bei den "Basics" lernt man nie aus ...

Klar, mit 
mid
funktioniert es richtig.
Ich habe mal geprüft, wie lange es dauert 

    dblTimer = Timer
    Debug.Print "Start Anzahl Items = " & colText.Count
    lngLength = 0   ' Gesamtlänge ermitteln
    For n = 1 To colText.Count
        lngLength = lngLength + Len(colText.Item(n)) + 1
    Next
    Debug.Print "Step1: " & Format$(Timer - dblTimer, "0.00"), "Länge = " & _
      lngLength
    dblTimer = Timer
    lngPos = 1
    strInput = Space$(lngLength) ' Gesamtstring mit Leerzeichen erstellen
    For n = 1 To colText.Count  ' Stückweise übergeben
        Mid(strInput, lngPos, Len(colText.Item(n))) = colText.Item(n)
        lngPos = lngPos + Len(colText.Item(n)) + 1
    Next
    Debug.Print "Step2: " & Format$(Timer - dblTimer, "0.00")
Ergebnis: 

Start Anzahl Items = 9066
Step1: 0,19   Länge=86172
Step2: 0,63
Das war eine PDF-Datei mit 7 MB. Die musste ich aus der Datenbank holen, auf die Platte schieben, dann mit PdfToText auslesen und dann die Textdatei verarbeiten.

Diese knappe Sekunde ist dann "verschmerzbar"

Aber:
Die bisherige Methode habe ich auch mal über Debug-Timer geprüft: 
    ReDim strWords(colText.Count)
 
    For n = 1 To colText.Count
        strWords(n - 1) = colText.Item(n)
    Next
    strInput = Join(strWords)
Da waren es nur 0,25 Sekunden

Also war die Aussage richtig, dass es nicht besonders schnell sein wird.


Euch allen vielen Dank für die Hilfe.
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
String auf vielen Einzelteilen zusammensetzen1.296Benne08.04.19 12:19
Re: String auf vielen Einzelteilen zusammensetzen683Zardoz08.04.19 13:35
Re: String auf vielen Einzelteilen zusammensetzen687Benne08.04.19 16:05
Re: String auf vielen Einzelteilen zusammensetzen665Benne08.04.19 16:46
Re: String auf vielen Einzelteilen zusammensetzen679Manfred X08.04.19 18:09
Re: String auf vielen Einzelteilen zusammensetzen639Benne25.04.19 16:22
Re: String auf vielen Einzelteilen zusammensetzen655Benne25.04.19 16:42
Re: String auf vielen Einzelteilen zusammensetzen652Zardoz25.04.19 17:00
Re: String auf vielen Einzelteilen zusammensetzen637Benne25.04.19 17:28
Re: String auf vielen Einzelteilen zusammensetzen653Zardoz25.04.19 17:48
Re: String auf vielen Einzelteilen zusammensetzen641Benne26.04.19 09:01
Re: String auf vielen Einzelteilen zusammensetzen640Manfred X25.04.19 20:11
Re: String auf vielen Einzelteilen zusammensetzen635Benne26.04.19 09:04
Re: String auf vielen Einzelteilen zusammensetzen632Manfred X26.04.19 09:54

Sie sind nicht angemeldet!
Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.

Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  GesamtübersichtSuchen 

nach obenzurück
  
   

Copyright ©2000-2024 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel