Vitajte na [www.pocitac.win] Pripojiť k domovskej stránke Obľúbené stránky

Domáce Hardware Siete Programovanie Softvér Otázka Systémy

Ako napísať pevná šírka textu súbory s Visual Basic

Pevná šírka textové súbory sú vo formáte dát , v ktorej sú informácie uložené v sérii stĺpcov , každý z pevnej šírky , ktorý umožňuje akýkoľvek počítač , ktorý pozná preddefinovanú šírku stĺpca rýchlo a ľahko čítať dáta bez zvláštneho rozobrať . To tiež umožňuje dáta majú byť vytlačené v ľudských ľahko prehľadnej tabuľky . Medzi ďalšie použitie , výsledky príkazov MySQL sú obyčajne uvedené vo formáte s pevnou šírkou . V tomto príklade bude program napísať pevnej šírky textového súboru pre knižnice databázy s titulmi , autormi , a dáta z kníh zadaných v knižnici . Pokyny dovolená 1

Vytvorte nový projekt kliknutím na tlačidlo " Súbor " , " New Project " . Vyberte " Aplikácia konzoly " typ . Neskôr , môžete použiť presne rovnaký kód , bez úprav , ako súčasť ( GUI ) projekt grafického užívateľského rozhrania . Názov projektu " Pevná šírka Writer . "
2

Vložte nasledujúce šírky stĺpca konštanty v hornej časti zdrojového kódu :

Const TITLE_FIELD ako integer = 25

Const AUTHOR_FIELD ako integer = 15

Cosnt DATE_FIELD ako integer = 10
3

Vložiť dát knižnice pre knihy . To bude umiestnená do poľa s názvom libraryData :

Dim libraryData ( , ) ako String =

{ { " To Kill a Mockingbird " , " Harper Lee " , " 01/23/2010 " } ,

{ " Stand " , " Stephen King " , " 02/15/1992 " } }
4

Vytvorte textový súbor , ktorý chcete písať ako pevnou šírkou textový súbor a vytvorí " TextFileWriter " pre neho :

Dim textového súboru ako reťazec = " filename.txt "

dim TextWriter = My.Computer.FileSystem.OpenTextFileWriter ( textfile , False )

" False " znamená , že si neželáte pripojiť dáta do súboru .
5

vložte nasledujúci písať stĺpec Hlavnou funkciou tohto je funkcia " PadRight " : to sa viaže toľko miesta ako napríklad na konci reťazca , aby sa rovná súčtu daný počet miest . To vám umožní tlačiť každý stĺpec na pevnú šírku
6

vložte nasledujúci zapísať dáta do súboru : .

X As Integer = 0 libraryData.getLength ( 0 ) -
7

vložte nasledujúci zatvoriť súbor :

textWriter.Flush ( )

textWriter.Close ( )

" Flush " zaisťuje , že posledná údajov bola zapísaná do súboru .

Najnovšie články

Copyright © počítačové znalosti Všetky práva vyhradené