Jak načíst *.TXT – Visual Basic – Fórum – Programujte.com

Rozšířené hledání ›

Nejnovější témata ve fóru

20:53, CSS Bootstrap 5 - překrývající navigace

09:20, Delphi Jak přečist poslední řadek z text souboru.

19:30, JavaScript, AJAX,… VSCode - JavaScript

16:45, HTML / XHTML Anti-kukíkový zákon

16:26, Assembler šachový program

22:06, Startupy Megastroj.cz – Vše na jednom místě: půjčovna, bazar a inze…

Stavba Laser Arény
Laser Game Brno

Jak načíst .TXT*

Prokop Buben

~ Anonymní uživatel
~ 4 příspěvky

30. 10. 2007 #1

Ve VB6 potřebuji načístprostý text s oddělovači.
Textový soubor má x řádek. (x > 70000)
V každé řádce je y položek oddělených oddělovačem. (5 > y < 15 )
Potřebuji načíst všechny řádky, seřadit je podle položky y(n) a seřazené uložit.

Děkuji za podněty.

Nahlásit jako SPAM

IP: 212.67.88.–

maty 0

Návštěvník

31. 10. 2007 #2

Open "myfile" For Input As #1 'otevření txt
Do While Not EOF(1)
Line Input #1, inputdata ' načtení řádku do prom
myitems = Split(inputdata, "mydelimiter") 'rozdělí řádku souboru dle zadaného oddělovače a výsledek uloží do pole
Loop
close #1

Nahlásit jako SPAM

IP: 194.213.57.–

1 nebo 0 toť otázka

Prokop Buben

~ Anonymní uživatel
~ 4 příspěvky

31. 10. 2007 #3

To maty : Dík, teď jdu vyzkoušetseřazení polí proměnných.

Nahlásit jako SPAM

IP: 212.67.88.–

Prokop Buben

~ Anonymní uživatel
~ 4 příspěvky

2. 11. 2007 #4

Při načtení řádku do proměnné pomocí

Line Input #1, data

jsou k textu přidány uvozovky. Stejně tak při ukládání pomocí Line output#1, data
jsou ve výsledném textovém souboru uvozovky, které tam nepotřebuji.
[seznam]Neví někdo jak tento problém vyřešit?[/seznam] (Hlavně při ukládání, při načítání se dá první a poslední znak odříznout, ale zpomaluje to běh programu.)

Děkuji. :smile1:

Nahlásit jako SPAM

IP: 212.67.88.–

S.e.m.i.k

~ Anonymní uživatel
~ 1 příspěvek

25. 10. 2013 #5

Aby výsledek v proměnné byl bez uvozovek, musí se použít místo LINE příkaz PRINT

Nahlásit jako SPAM

IP: 188.175.38.–

← Zpět na seznam vláken ← Zpět do Fóra