|  | 		    
					
        
         
          
         
	
          | |  | Problem ang. gem indhold af TekxtBox Fra : Tim Sørensen
 | 
 Dato :  14-07-01 00:04
 | 
 |  | 
 
            Jeg har et  problem når jeg gemmer indholdet af en TekxtBox.
 Jeg kan se at det allersidste tegn i den gemte fil er et linjeskift.
 Hvor kommer det sidste linjeskift fra?
 Strengen jeg gemte indeholdet ingen linjeskift, men når jeg gemmer kommer
 den.
 Nogle der har en kode, der undgår dette?
 --
 Mvh.... Tim Sørensen
http://dondata.adsl.dk/ |  |  | 
  Tim Sørensen (14-07-2001) 
 
	
          | |  | Kommentar Fra : Tim Sørensen
 | 
 Dato :  14-07-01 02:05
 | 
 |  | Jeg fandt ud af dette som løsning.
 Denne funktion gemme Text1.Text NØJAGTIGT som der er skrevet i den.
 Ingen tilføjelse i form af linjeskift eller andet.
 
 dim strFilNavn As String
 strFilNavn = "C:\Test.txt"
 
 Open strFilNavn For Binary As #1
 Put #1, 1, Text1.Text
 Close #1
 
 
 
 
 |  |  | 
  Bjarke Walling Peter~ (14-07-2001) 
 
	
          | |  | Kommentar Fra : Bjarke Walling Peter~
 | 
 Dato :  14-07-01 12:58
 | 
 |  | Det du nok havde gjort før, var følgende:
 
 Open strFilNavn For Output As #1
 Print#1, Text1.Text
 Close#1
 
 Problemet er her at Print automatisk tilføjer et linieskift, hvis man ikke
 skriver et semikolon efter.
 Man skal altså skrive:
 
 Print#1, Text1.Text;
 
 .... det vil virke.
 
 - Bjarke Walling Petersen
 
 Tim Sørensen skrev:
 > Jeg fandt ud af dette som løsning.
 > Denne funktion gemme Text1.Text NØJAGTIGT som der er skrevet i den.
 > Ingen tilføjelse i form af linjeskift eller andet.
 >
 > dim strFilNavn As String
 > strFilNavn = "C:\Test.txt"
 >
 > Open strFilNavn For Binary As #1
 > Put #1, 1, Text1.Text
 > Close #1
 >
 >
 
 
 
 
 |  |  | 
 |  |