🚀 go-pugleaf

> End With
> 
> 
> Pozdrawiam
> MF

Samo wrzucenie wartości zmiennej do pliku trwa błyskawicznie:
fragment kodu:
"
Set fs = CreateObject("Scripting.FileSystemObject")
Set txtFile = fs.CreateTextFile(sFile, False)
txtFile.Write (sTxtOut)
"

MF

Podumałem i wymyśliłem.
Generuje plik dla 40 tys rekordów w pare sekund zamiast 30 minut.

kod:
"
Set fs = CreateObject("Scripting.FileSystemObject")
Set txtFile = fs.CreateTextFile(sFile, False)
'txtFile.Write (sTxtOut)

    txtFile.WriteLine "H D=."
    txtFile.WriteLine "T TR"
    
    With rst
       .MoveFirst
       Do Until .EOF Or .BOF
              
              txtFile.WriteLine "K K1 POL" & !NrFaktury
              txtFile.WriteLine "F K2 POL"
              txtFile.WriteLine "F FNR " & !NrFaktury
              txtFile.WriteLine "F FWA " & !WartFaktury
              txtFile.WriteLine "F FW2 " & !WartFaktury
              txtFile.WriteLine "F TWA " & !WartFaktury
            
          .MoveNext
       Loop
    End With

"

MF

Mimo wszystko chętnie posłuchałbym opinii o tym rozwiązaniu.

W dniu 2017-05-31 o 20:25, minfo@onet.pl pisze:
> Podumałem i wymyśliłem.
> Generuje plik dla 40 tys rekordów w pare sekund zamiast 30 minut.
>
> kod:
> "
> Set fs = CreateObject("Scripting.FileSystemObject")
> Set txtFile = fs.CreateTextFile(sFile, False)
> 'txtFile.Write (sTxtOut)
>
>     txtFile.WriteLine "H D=."
>     txtFile.WriteLine "T TR"
>
>     With rst
>        .MoveFirst
>        Do Until .EOF Or .BOF
>
>               txtFile.WriteLine "K K1 POL" & !NrFaktury
>               txtFile.WriteLine "F K2 POL"
>               txtFile.WriteLine "F FNR " & !NrFaktury
>               txtFile.WriteLine "F FWA " & !WartFaktury
>               txtFile.WriteLine "F FW2 " & !WartFaktury
>               txtFile.WriteLine "F TWA " & !WartFaktury
>
>           .MoveNext
>        Loop
>     End With
>
> "
>
> MF
>
> Mimo wszystko chętnie posłuchałbym opinii o tym rozwiązaniu.
>
U mnie dla 40 000 rekordów wygenerowanie pliku trwa ok. 1 sekundy

Przetestuj poniższe rozwiązanie:

#If VBA7 Then
   Private Declare PtrSafe Function timeGetTime Lib "winmm.dll" () As Long
#Else
   Private Declare  Function timeGetTime Lib "winmm.dll" () As Long
#End If

'__________________________________
Private Sub btnToFile_Click()
Dim dbs As DAO.Database
Dim rst As DAO.Recordset
Dim sTmpPath As String
Dim ff As Integer
Dim i As Long
Dim lngStart As Long
Dim strTmp As String

   lngStart = timeGetTime

   ff = FreeFile
   sTmpPath = CurrentProject.Path & "\" & "aaa.txt"

   Open sTmpPath For Binary Access Write As #ff

     Set dbs = CurrentDb
     Set rst = dbs.OpenRecordset("Tabela1", dbOpenForwardOnly)
       With rst
         Do Until .EOF
           i = i + 1
           ' numeruj rekordy
           strTmp = strTmp & "Nr rekordu: " & i & vbNewLine
           strTmp = strTmp & "Jeden: " & !ID & vbNewLine
           strTmp = strTmp & "Dwa: " & !F2 & vbNewLine
           strTmp = strTmp & "Trzy: " & !F2 & vbNewLine
           strTmp = strTmp & "Cztery: " & !F3 & vbNewLine
           strTmp = strTmp & "Pięć: " & !F4 & vbNewLine
           strTmp = strTmp & "Sześć: " & !F5 & vbNewLine
           ' zapisz rekord
           Put #ff, , strTmp
           ' wyczyść zmienną
           strTmp = ""
           .MoveNext
         Loop
       End With

   Close #ff

       rst.Close
   Set rst = Nothing
   Set dbs = Nothing

   MsgBox "Czas trwania operacji: " & timeGetTime - lngStart

End Sub



-- 
Pozdrowienia
BraZby
www.faq.accdb.pl
www.accdb.pl

> 
> End Sub
> 
> 
> 
> -- 
> Pozdrowienia
> BraZby
> www.faq.accdb.pl
> www.accdb.pl

Dziękuję za odpowiedź!
MF

>W dniu 2017-05-31 o 20:25, mi...@onet.pl pisze: 
>– pokaż cytowany tekst –
>U mnie dla 40 000 rekordów wygenerowanie pliku trwa ok. 1 sekundy 
>
>Przetestuj poniższe rozwiązanie: 

Jeżeli chodzi o szybkość to zgadza się dla 60 tys. rekordów:
Twoja procedurka 2,9 sek moja 6,1 sek.

/
MF

W dniu 2017-06-02 o 14:14, minfo@onet.pl pisze:
>> W dniu 2017-05-31 o 20:25, mi...@onet.pl pisze:
>> – pokaż cytowany tekst –
>> U mnie dla 40 000 rekordów wygenerowanie pliku trwa ok. 1 sekundy
>>
>> Przetestuj poniższe rozwiązanie:
>
> Jeżeli chodzi o szybkość to zgadza się dla 60 tys. rekordów:
> Twoja procedurka 2,9 sek moja 6,1 sek.

...

Optymalizowanie kodu ma swoje minusy.
W tym układzie nie ma szansy na spokojne wypicie kawy ;-)
W 3 sek. nie da rady wypić kubka kawy.

-- 
Pozdrowienia
BraZby
www.faq.accdb.pl
www.accdb.pl

W dniu 2017-06-02 o 23:06, Zbigniew Bratko pisze:
> (...)
>
> Optymalizowanie kodu ma swoje minusy.
> W tym układzie nie ma szansy na spokojne wypicie kawy ;-)
> W 3 sek. nie da rady wypić kubka kawy.
>

Zawsze wyniki można też zapuszczać na konsolę, podłożyć pasek postępu i 
dać stado fruwających animacji ;)


Szczegóły już mi umknęły, ale przypomniała mi się taka historia:

Czasy jeszcze Novella 3.12.
Duża firma produkująca oprogramowanie dla firm, wtedy jeszcze też 
serwisująca oprogramowanie u klientów; także sprzedająca oraz 
serwisująca sprzęt.

Klienci od czasu do czasu kupowali dodatkowe licencje na Novella.

Aż zdarzył się jeden klient, który (ówcześnie za naprawdę duże 
pieniądze) kupił pakiet dodatkowych licencji. Przyszedł serwisant, 
usiadł przy konsoli NW, zapodał dyskietkę, potwierdził wczytanie 
licencji. Całość: kilkadziesiąt sekund.
Przedstawił fakturę klientowi.
Ledwie uszedł z życiem ;)
Klient ze swojego punktu widzenia zauważył, że serwisant chce kupę 
szmalu za minutę roboty...

Od tego czasu w celu instalacji licencji serwer był zabierany do serwisu.


-- 
Pozdrawiam.

Adam

> Klient ze swojego punktu widzenia zauważył, że serwisant chce kupę 
> szmalu za minutę roboty...
Wiedza kosztuje, a czy klient poradził by sobie sam  z wgraniem tej Licencji? znając życie i Novela w 99% nie.

> Od tego czasu w celu instalacji licencji serwer był zabierany do serwisu.
Trzeba klienta zawsze uprzedzić że to będzie kosztowało i nie robić wariata z zabieraniem serwera. Złe podejście do sprawy.

pozdrawiam :)
Leszek

W dniu 2017-06-07 o 07:16, LeszekN pisze:
>> Klient ze swojego punktu widzenia zauważył, że serwisant chce kupę
>> szmalu za minutę roboty...
> Wiedza kosztuje, a czy klient poradził by sobie sam  z wgraniem tej Licencji? znając życie i Novela w 99% nie.
>

W zasadzie powinien sobie poradzić.
Wtedy praktycznie każdy serwer był podpięty do monitora z konsolą.


>> Od tego czasu w celu instalacji licencji serwer był zabierany do serwisu.
> Trzeba klienta zawsze uprzedzić że to będzie kosztowało i nie robić wariata z zabieraniem serwera. Złe podejście do sprawy.
>

Nie, to nie o to chodzi.
Klienci najczęściej nie mieli świadomości kosztów oprogramowania.
Przecież to były czasy, gdzie program/grę albo zgrywało się od kolegi, 
albo jechało na giełdę, aby zdobyć w podwójnej cenie dyskietki.
Świadomość klienta była na poziomie:
On mi to (np. program do obsługi firmy) wgrał i skonfigurował w ciągu 
godziny, a ja mam płacić tyyyyle?


-- 
Pozdrawiam.

Adam

> On mi to (np. program do obsługi firmy) wgrał i skonfigurował w ciągu 
> godziny, a ja mam płacić tyyyyle?

Trzeba było długo udawać że się coś robiło a nie wgrać i uciekać :D 
Znam te czasy ;) Czuję się czasem jak bym miał dalej 16 lat, a tu niestety trochę więcej :)

pozdrawiam 
Leszek

Dnia Mon, 12 Jun 2017 04:31:43 -0700 (PDT), LeszekN napisał(a):

>> On mi to (np. program do obsługi firmy) wgrał i skonfigurował w ciągu 
>> godziny, a ja mam płacić tyyyyle?
> 
> Trzeba było długo udawać że się coś robiło a nie wgrać i uciekać :D 
> Znam te czasy ;) Czuję się czasem jak bym miał dalej 16 lat, a tu niestety trochę więcej :)
> 
> pozdrawiam 
> Leszek

'Znam te czasy'
Ja też je znam. Teraz jest jeszcze 'lepiej'.
Nie jeździ się do klienta.
Dzwoni, proszę podać ID ihasło do pomocy zdalnej (Teamwiever).
3 kliknięcia i działa.
Ile za to kasować?:)

P.S. Pomojam koszt licencji TV.

W dniu 2017-06-15 o 09:38, Jacek pisze:
> Dnia Mon, 12 Jun 2017 04:31:43 -0700 (PDT), LeszekN napisał(a):
>
>>> On mi to (np. program do obsługi firmy) wgrał i skonfigurował w ciągu
>>> godziny, a ja mam płacić tyyyyle?
>>
>> Trzeba było długo udawać że się coś robiło a nie wgrać i uciekać :D
>> Znam te czasy ;) Czuję się czasem jak bym miał dalej 16 lat, a tu niestety trochę więcej :)
>>
>> pozdrawiam
>> Leszek
>
> 'Znam te czasy'
> Ja też je znam. Teraz jest jeszcze 'lepiej'.
> Nie jeździ się do klienta.
> Dzwoni, proszę podać ID ihasło do pomocy zdalnej (Teamwiever).
> 3 kliknięcia i działa.
> Ile za to kasować?:)
>
> P.S. Pomojam koszt licencji TV.
>


Moi znajomi (niektórzy to konkurencja, z niektórymi współpracuję) to 
liczą najczęściej każdą rozpoczętą godzinę serwisową, niektórzy pół 
godziny serwisowej.
Jeśli klient w porządku, to czasem pierdółka gratis - ale klient wie o tym.
Mogą jeszcze być klienci ze stałą umową. Zwykle w ramach umowy jest 
określony miesięczny czas ogółem.


-- 
Pozdrawiam.

Adam