Avatar billede fico Nybegynder
21. november 1999 - 18:29 Der er 11 kommentarer og
1 løsning

At gemme ?

Hej

Jeg sidder med et program der indeholder  tre textboxe (text(0), text(1) og text(2) ) i et program.
Problemet kommer bare der hvor jeg skal gemme.
Hvordan gemmer man disse tre textboxe i en txt-fil ved at trykke på en knap ?
Lige en ting til hver gang man åbner skal den første stå i og det skal være i alfabetisk-orden, dvs. at den enten skal gemme i alfabetisk-orden eller læse i alfabetisk-orden efter det der står i Textbox 1 (text(0) ).
Avatar billede brinch Nybegynder
21. november 1999 - 18:41 #1
For at gemme bruger du flg. kommando

Open "Mintekstfil.txt" for output as #1
print #1, text(0)
print #1, text(1)
print #1, text(2)
close #1

En måde at sortere på ved læs

ummidelbart ville jeg bare lægge teksten
ind i et msFlexgrid og udføre

msflexgrid1.sort

og herefter flytte teksten fra msflexgrid1.col (1 til 3 ) til text(1-3)

kan sikkert gøres nemmere men det virker da.

Held og lykke
Avatar billede brinch Nybegynder
21. november 1999 - 18:43 #2
Av ja, jeg glemte lige det her:
for at læse filen ind igen
Open "mintekstfil.txt" For Input As #1
Line Input #1, strlinie1
Line Input #1, strlinie2
Line Input #1, strlinie3
close #1
Avatar billede fico Nybegynder
21. november 1999 - 20:18 #3
Brinch hvor skal disse koder stå ?
Avatar billede fico Nybegynder
21. november 1999 - 20:26 #4
Det virker ikke, altså den med at gemme (jeg bruger VB6.0)
Avatar billede aleks Nybegynder
21. november 1999 - 21:53 #5
Benyt følgende kode til at gemme:

For nCounter = 0 to 1
  For nCount = 0 to 1
    If text( nCount ) > text( nCount + 1 ) Then
      cTemp = nCount text( nCount + 1)
      text( nCount + 1 ) = text( nCount )
      text( nCount ) = cTemp
    End If
  Next
Next
Open "fil.txt" For Output As #1
  Print #1, text(0)
  Print #1, text(1)
  Print #1, text(2)
Close #1

Og for at hente skriver du følgende:
Open "fil.txt" For Input As #1
  Line Input #1, text(0)
  Line Input #1, text(1)
  Line Input #1, text(2)
Close #1
Avatar billede aleks Nybegynder
21. november 1999 - 21:55 #6
Ooops en lille fejl, i linien hvor der står:

cTemp = nCount text( nCount + 1)

Skal der stå:

cTemp = text( nCount + 1)

Sorry ;-)
Avatar billede fico Nybegynder
22. november 1999 - 07:44 #7
Aleks gemmer den efter første linje ?
Jeg ved godt jeg har glemt at skrive det, altså det med alfabetiskrækkefølge.
Dvs at; det skal gemme de tre linjer sammen lige meget om du hedder Børge, Kurt og Jens.
Så skal den tage den først linje Børge og når så personen skriver næste gang fx Hans, Lilian og Bigger så SKAL Børge, Kurt og Jens stå øverst fordi at B i Børge kommer før H i Hans.
Hvis Personen skriver Ditte, Karl og Peter så skal de være imellem Børge række og Hans række fordi D i Ditte er kommer før H, men efter B. 
Spørgsmål så skriv lige.
Avatar billede nihao Nybegynder
24. november 1999 - 09:23 #8
Det er måske lidt besværligt, men hvis du bruger følgende

Option Compare Text

sub xxx()
t01 = (text(0) < text(1))
t02 = (text(0) < text(2))
t12 = (text(1) < text(2))
end sub

Så kan du bruge de 3 Boolean variabler til at sortere, de seks kombinationer, og gemme i alfabetisk orden.
fx.
if t01=true and t02 = true and t12=false then
print #1, text(0)
print #1, text(2)
print #1, text(1)

etc.

Læse fra fil vil være som ovenfor kommentarer.
Avatar billede aleks Nybegynder
24. november 1999 - 09:29 #9
>>fico

Jeg forstod ikke lige din kommentar, gider du ikke prøve at omformulere det?
Avatar billede fico Nybegynder
24. november 1999 - 13:45 #10
Jeg har lavet det lidt om, ¨så det bliver lettere.
------
Jeg har et tre Textboxe.
Text(0)
Text(1)
Text(2)
-------
Textbox et indeholder
Navnet, textbox to Url'en og textbox tre indeholder en beskrivelse.
-------
Eks.
<klip>
Peter Bøgh hjemmeside
http://www.fico.dk
Min egen hjemmeside.
<klip>
Dette er et hold.
Så skal den sotere efter textbox et.
Dvs. har du så også to andre fx
<klip>
Ekpserten
http://www.eksperten.dk
Et sprøgested.
====
Jubii
http://www.jubii.dk
Danmarks støste søgested.
<klip>

Så skal den det i en Listbox stå pr. linje hver textbox (0) i Alfabetiskrækkefølge.
Eks. til Listboxen:
<klip>
Eksperten
Jubii
Peter Bøghs hjemmeside
<klip>
Når så man markere Fx Jubii så kommer Jubii navn i Textbox(0), Jubiis adresse i textbox(1) og Jubiis beskivelse i textbox(2).
Avatar billede fico Nybegynder
04. februar 2000 - 18:34 #11
Er ingen der kan hjælp mig ?
Avatar billede fico Nybegynder
10. februar 2000 - 17:23 #12
Spm, lukket.
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester