Forum » Programiranje » kopiranje iz enega fajla v drug??
kopiranje iz enega fajla v drug??
Seth ::
Zanima me ali ima kdo rešitev na ta problem. Imam en TXT fajl iz katerega moram skopirati vsako vrstico v svoj HTML. HTMLji so razvrščeni po vrsti. Teh vrstic v TXT je približno 5000 in je na roke copy-paste kar precej dela.
hvala
lp,
Seth
hvala
lp,
Seth
snow ::
c++
fstream.
bereš vrstico po vrstico z getline... in jo napišeš v html fajl.
zdej ugodno bi blo da bi imeli html fajli recimo zaporedne cifre.
fstream.
bereš vrstico po vrstico z getline... in jo napišeš v html fajl.
zdej ugodno bi blo da bi imeli html fajli recimo zaporedne cifre.
Random mutation plus nonrandom cumulative natural selection - Richard Dawkins
Zgodovina sprememb…
- spremenilo: snow ()
StratOS ::
V vsakem programskem jeziku lahko to narediš.
Recimo v VB
Kakor se meni zdi bi ti rad (zgleda) naredil neke različne quote ali podobno v tistih tvojih html-jih.
Če češ, da ti pomagamo, malo bolj definiri vhodni fajl (text), kako je zgrajen (vrstično ok) in tvoj html fajl in kaj s tem sploh hočeš narediti, pa ti bomo naredili proggy za to.
Damn!
Ti HTML tagi, ki sem jih hotel narediti kot sttring v ovl in ovl1 so mi dali enkratno idejo, vendar jih server ni POSTnu, se ve zakaj !
Recimo v VB
Kakor se meni zdi bi ti rad (zgleda) naredil neke različne quote ali podobno v tistih tvojih html-jih.
Če češ, da ti pomagamo, malo bolj definiri vhodni fajl (text), kako je zgrajen (vrstično ok) in tvoj html fajl in kaj s tem sploh hočeš narediti, pa ti bomo naredili proggy za to.
Sub main()
Dim s As String
Dim i As Integer
Dim ovl, ovl1 As String
Const DQ As String = """"
On Local Error Resume Next
ovl = "prefix htmlja"
ovl1 = "sufix htmlja"
i = 1
Open "c:\quotes.txt" For Input As #1
MkDir "c:\test"
Do Until EOF(1)
Line Input #1, s
Open "c:\test\out" & i & ".html" For Output As #2
Print #2, ovl
Print #2, s
Print #2, ovl1
Close #2
i = i + 1
Loop
Close #1
End Sub
Damn!
Ti HTML tagi, ki sem jih hotel narediti kot sttring v ovl in ovl1 so mi dali enkratno idejo, vendar jih server ni POSTnu, se ve zakaj !
"Multitasking - ability to f##k up several things at once."
"It works better if you plug it in."
"The one who is digging the hole for the other to fall in is allready in it."
"It works better if you plug it in."
"The one who is digging the hole for the other to fall in is allready in it."
Zgodovina sprememb…
- spremenila: StratOS ()
Seth ::
Ok, stvar je taka. Imam TXT ali pa lahko tudi XLS fajl (ampak se mi zdi, da bi bil txt bolj primeren). v txt fajlu so vrstice. Prva predstavlja vprašanje, naslednje 4 pa odgovor. In hotel bi, da bi da se vsaka vrstica skopira v body od posameznega HTML fajla. Problem verjetno predstavlja tudi to, da so imena html-jev različna.
Primer:
M316.HTML (html za vprašanje)
M316_choice_1.html (html za odgovor, kot tudi naslednji 3je)
M316_choice_2.html
M316_choice_3.html
M316_choice_4.html
M316_correct.HTML (predstavlja pravilni odgovor)
V txt-ju je približno 5000 vrstic. Prva je vprašanje naslednje 4 (ponekod tudi 2) so pa odgovori in tako naprej.
Upam, da nisem preveč zakompliciral.
Hvala za asistenco ;)
Seth
Primer:
M316.HTML (html za vprašanje)
M316_choice_1.html (html za odgovor, kot tudi naslednji 3je)
M316_choice_2.html
M316_choice_3.html
M316_choice_4.html
M316_correct.HTML (predstavlja pravilni odgovor)
V txt-ju je približno 5000 vrstic. Prva je vprašanje naslednje 4 (ponekod tudi 2) so pa odgovori in tako naprej.
Upam, da nisem preveč zakompliciral.
Hvala za asistenco ;)
Seth
StratOS ::
Dodatno me zanima, ker nisi napisal, ali so znotraj vprašanj/odgovorov v txt fajlu kakšni delimetri (ASCII znaki, prazne vrstice ...), kajti napisal si, da nekje (vprašanje je vednop 1 - se pravi vedno v eni vrstici), odgovori so tudi v eni vrstici, jih je pa lahko različno 2 ali 4.
Rešitev je tudi v eni vrstici
Kako so ločeni (Seveda če sploh so) sklopi vprašanj/izbir/odgovorjev med seboj.
Primer :
No vidiš v tem delu ti bi lahko ločevalniki (-----) prav koristili, lahko pa rečeš tudi (če imaš tako zapisano v txt fajlu ---> Rešitev je index možnih odgovorjev in je številka in imaš tu prelomnico za novo vprašanje.
Preglej z kakšnim hex editorjem ta tvoj txt fajl podrobno oz. daj na web ta tvoj txt fajlček pa ti bom to zrihtu.
Nevem, zakaj razbijaš ta fajl in kreiraš nove, ker boš tako ali tako moral narediti referenco na te fajle, pa še prostorsko ti bo preveč zneslo, a nimaš možnosti skriptanja na web serverju ali uporabe podatkovnih zbirk ?
Kar se tiče različnih imen sploh ni problem, hotel bi zgleda še "random" vprašanja ?
Rešitev je tudi v eni vrstici
Kako so ločeni (Seveda če sploh so) sklopi vprašanj/izbir/odgovorjev med seboj.
Primer :
Katero je glavno mesto Slovenije?
Celje
Ljubljana
1
-----------------------------
Kako so klicali Johna ?
Johhny
Jon
Johann
2
-----------------------------
Kaj je Črno morje ?
Morje
Jezero
Mlaka
Reka
4
-----------------------------
No vidiš v tem delu ti bi lahko ločevalniki (-----) prav koristili, lahko pa rečeš tudi (če imaš tako zapisano v txt fajlu ---> Rešitev je index možnih odgovorjev in je številka in imaš tu prelomnico za novo vprašanje.
Preglej z kakšnim hex editorjem ta tvoj txt fajl podrobno oz. daj na web ta tvoj txt fajlček pa ti bom to zrihtu.
Nevem, zakaj razbijaš ta fajl in kreiraš nove, ker boš tako ali tako moral narediti referenco na te fajle, pa še prostorsko ti bo preveč zneslo, a nimaš možnosti skriptanja na web serverju ali uporabe podatkovnih zbirk ?
Kar se tiče različnih imen sploh ni problem, hotel bi zgleda še "random" vprašanja ?
"Multitasking - ability to f##k up several things at once."
"It works better if you plug it in."
"The one who is digging the hole for the other to fall in is allready in it."
"It works better if you plug it in."
"The one who is digging the hole for the other to fall in is allready in it."
Zgodovina sprememb…
- spremenila: StratOS ()
Seth ::
Vprašanja v txt fajlu so takšna naprimer
1. The 2 types of immunologic defenses of the respiratory system are:
a) Inflammatory and antigenic
b) Acute and chronic #
c) Bronchogenic and angiogenic
d) Antibody-mediated and cell-mediated
2. Which of these structures is NOT part of the lower respiratory tract?
a) Alveoli
b) Lungs
c) Larynx
d) Trachea #
3. When you breathe in as deeply as you can, the amount of air in your lungs is called:
a) Tidal volume
b) Total lung capacity
c) Vital capacity
d) Forced vital capacity (FVC) #
4. Total lung capacity is best defined as:
a) The amount of air that remains in a subject's lungs after the subject exhales as much air as possible
b) How much air is in a subject's lungs at the point of maximal inhalation
c) The total volume of air exhaled during a forced exhalation after a maximal inhalation
d) The volume of air (in liters) that the patient can forcefully exhale in 1 second #
5. Gas exchange occurs in the:
a) Trachea
b) Alveoli
c) Bronchi
d) Septa #
z lojtrco # so označeni pravilni odgovori, ki pa morajo biti kopirani 2x (se pravi najprej v html-je za odgovor in potem še v poseben html, ki označuje pravilen odgovor)
Fajl razbijam v html fajle, zato, ker uporabljam program v katerega lahko ročno vnesem vse podatke, amapak je tega preveč. Program pa prav tako vpisuje v iste HTML-je, ki sem jih prej naštel, tako da bi stvar raje avtomatiziral.
tnx,
Seth
1. The 2 types of immunologic defenses of the respiratory system are:
a) Inflammatory and antigenic
b) Acute and chronic #
c) Bronchogenic and angiogenic
d) Antibody-mediated and cell-mediated
2. Which of these structures is NOT part of the lower respiratory tract?
a) Alveoli
b) Lungs
c) Larynx
d) Trachea #
3. When you breathe in as deeply as you can, the amount of air in your lungs is called:
a) Tidal volume
b) Total lung capacity
c) Vital capacity
d) Forced vital capacity (FVC) #
4. Total lung capacity is best defined as:
a) The amount of air that remains in a subject's lungs after the subject exhales as much air as possible
b) How much air is in a subject's lungs at the point of maximal inhalation
c) The total volume of air exhaled during a forced exhalation after a maximal inhalation
d) The volume of air (in liters) that the patient can forcefully exhale in 1 second #
5. Gas exchange occurs in the:
a) Trachea
b) Alveoli
c) Bronchi
d) Septa #
z lojtrco # so označeni pravilni odgovori, ki pa morajo biti kopirani 2x (se pravi najprej v html-je za odgovor in potem še v poseben html, ki označuje pravilen odgovor)
Fajl razbijam v html fajle, zato, ker uporabljam program v katerega lahko ročno vnesem vse podatke, amapak je tega preveč. Program pa prav tako vpisuje v iste HTML-je, ki sem jih prej naštel, tako da bi stvar raje avtomatiziral.
tnx,
Seth
StratOS ::
Mene ne zanimajo vprašanja, ampak struktura, če je točno taka struktura v fajlu, kot si napisal bom rešil hitro, če pa ni bo problem.
Uploadaj ta text fajl na web, bom probal exe naradit pa ti ga dam potem oz. source v recimo VB-ju.
Uploadaj ta text fajl na web, bom probal exe naradit pa ti ga dam potem oz. source v recimo VB-ju.
"Multitasking - ability to f##k up several things at once."
"It works better if you plug it in."
"The one who is digging the hole for the other to fall in is allready in it."
"It works better if you plug it in."
"The one who is digging the hole for the other to fall in is allready in it."
Zgodovina sprememb…
- spremenila: StratOS ()
StratOS ::
No recimo nekaj na hitro, čist simple:
Akcija na formi (recimo gumb) :
funkcija na ravni forme :
Modul :
pa imaš parsirano.
Predpogoj je, da so fajli točno tako definirani, presledkov med skupki so lahko.
Pomembno je, da se novo vprašanje začne z številko in "."
primer :
45.Kako je ..
56.Grt
Možni odgovori imajo pa zaklepaj ")" na 2 mestu
Pravilni odgovor ima na koncu "#".
Program lahko še izpiliš in dodaš dodatne stvari za idelavo HTML-ja ...
Akcija na formi (recimo gumb) :
Private Sub cmdGo_Click()
Dim Vnos As String
Dim Pos As Integer
Dim Odg As Integer
Dim Možno As String
Open Fajl For Input As #1
Znova:
Line Input #1, Vnos
Vnos = Trim$(Vnos)
Start:
If EOF(1) Then Close #1: End
If Vnos Like "" Then GoTo Znova
If Mid$(Vnos, 2) = ")" Then MsgBox "Napaka v fajlu - Ni vprašanja": Stop
Pos = InStr(1, Vnos, ".", vbTextCompare) 'Št. vprašanja
If Pos > 1 Then
Št = CInt(Left$(Vnos, Pos - 1))
Else
GoTo Znova
End If
Open Pot & "M" & Št & ".html" For Output As #2
Print #2, Right$(Vnos, Len(Vnos) - Pos)
Close #2
Odg = 1
Krog:
Open Pot & "M" & Št & "_choice_" & Odg & ".html" For Output As #2
Line Input #1, Vnos
Vnos = Trim$(Vnos)
Možno = PregledChoice(Vnos, Št)
If Len(Možno) > 0 Then
Print #2, Možno
Close #2
Odg = Odg + 1
GoTo Krog
Else
Close #2
Kill Pot & "M" & Št & "_choice_" & Odg & ".html"
Odg = 1
GoTo Start
End If
End Sub
funkcija na ravni forme :
Function PregledChoice(S As String, Optional ID As Integer) As String
If Mid$(S, 2, 1) = ")" Then
PregledChoice = Right$(S, Len(S) - 3)
If Right$(S, 1) = "#" Then
Open Pot & "M" & Št & "_correct.html" For Output As #3
PregledChoice = Trim$(Left$(PregledChoice, Len(PregledChoice) - 1))
Print #3, PregledChoice
Close #3
End If
Else
PregledChoice = ""
End If
End Function
Modul :
Global Št As Integer
Global Const Fajl As String = "c:\quote.txt"
Global Const Pot As String = "c:\test\"
pa imaš parsirano.
Predpogoj je, da so fajli točno tako definirani, presledkov med skupki so lahko.
Pomembno je, da se novo vprašanje začne z številko in "."
primer :
45.Kako je ..
56.Grt
Možni odgovori imajo pa zaklepaj ")" na 2 mestu
Pravilni odgovor ima na koncu "#".
Program lahko še izpiliš in dodaš dodatne stvari za idelavo HTML-ja ...
"Multitasking - ability to f##k up several things at once."
"It works better if you plug it in."
"The one who is digging the hole for the other to fall in is allready in it."
"It works better if you plug it in."
"The one who is digging the hole for the other to fall in is allready in it."
StratOS ::
Evo ti še linka
"Multitasking - ability to f##k up several things at once."
"It works better if you plug it in."
"The one who is digging the hole for the other to fall in is allready in it."
"It works better if you plug it in."
"The one who is digging the hole for the other to fall in is allready in it."
Seth ::
Hvala za app. Ratalo je, da skopira amapk je še nekaj pomanjkljivosti.
Kot prvo (ne vem zakaj, amapak program ki ga uporabljam začne s 316) mora biti prvi html z imenom M316.HTML. Meni je programček generiral nove html-je, ki so se začeli z M1.HTML. Ne vem, kako bi se obnašalo, ko bi prišlo do 316-tega vprašanje, ali bi prepisalo vsebino html-ja z vprašanjem (se pravi vpiše samo vprašanje, HTML strukturo vrže vn), ker je v M1.html vpisal samo vprašanje.
Dodatno zraven bi rad generiral še html-je M316_correct.html (oziroma M***_correct.html za vsako vprašanje), v katerem je vpisan stavek Correct v body-ju. Sej bi napisal strukturo, pa potem noče postat, ampak to trenutno ni problem.
Drugače bi pa potem moral videti, kako se bo to obnašalo pri 5000 vnosih in kako bo s šumniki.
tnx,
lp
Seth
Kot prvo (ne vem zakaj, amapak program ki ga uporabljam začne s 316) mora biti prvi html z imenom M316.HTML. Meni je programček generiral nove html-je, ki so se začeli z M1.HTML. Ne vem, kako bi se obnašalo, ko bi prišlo do 316-tega vprašanje, ali bi prepisalo vsebino html-ja z vprašanjem (se pravi vpiše samo vprašanje, HTML strukturo vrže vn), ker je v M1.html vpisal samo vprašanje.
Dodatno zraven bi rad generiral še html-je M316_correct.html (oziroma M***_correct.html za vsako vprašanje), v katerem je vpisan stavek Correct v body-ju. Sej bi napisal strukturo, pa potem noče postat, ampak to trenutno ni problem.
Drugače bi pa potem moral videti, kako se bo to obnašalo pri 5000 vnosih in kako bo s šumniki.
tnx,
lp
Seth
StratOS ::
Jup, res začne z M1, ker pač bere iz fajla št. vprašanja 1., 2., 3. itd
Če bi prišel do 316 bi ga overwritnu, če bi seveda imel toliko vprašanj.
Z šumniki ni problema, le če je originalni fajl narejen v istem CP razredu, ki podpira ala šumnike oz ta razred.
Za ostale pomankljivosti spremeni source in ponovno rekompiliri.
Default bere iz c:\quote.txt
v c:\test\ pa naredi datoteke !
Prej si rekel naj ti v M???_correct.html napiše rešitev možnih odgovorov.
Za dodatno HTML formatiranje v M*.html lahko uporabljaš standardni "Print" ukaz.
Upam, da sem ti pomagal.
Če potrebuješ pomoč, javi !
lp
Če bi prišel do 316 bi ga overwritnu, če bi seveda imel toliko vprašanj.
Z šumniki ni problema, le če je originalni fajl narejen v istem CP razredu, ki podpira ala šumnike oz ta razred.
Za ostale pomankljivosti spremeni source in ponovno rekompiliri.
Default bere iz c:\quote.txt
v c:\test\ pa naredi datoteke !
Prej si rekel naj ti v M???_correct.html napiše rešitev možnih odgovorov.
Za dodatno HTML formatiranje v M*.html lahko uporabljaš standardni "Print" ukaz.
Upam, da sem ti pomagal.
Če potrebuješ pomoč, javi !
lp
"Multitasking - ability to f##k up several things at once."
"It works better if you plug it in."
"The one who is digging the hole for the other to fall in is allready in it."
"It works better if you plug it in."
"The one who is digging the hole for the other to fall in is allready in it."
StratOS ::
Še enkrat preglej zgornji link. Zadovoljen ?
"Multitasking - ability to f##k up several things at once."
"It works better if you plug it in."
"The one who is digging the hole for the other to fall in is allready in it."
"It works better if you plug it in."
"The one who is digging the hole for the other to fall in is allready in it."
Seth ::
Odlično. Bom še naredil par modifikacij za oblikovanje html-jev. Če mi slučajno ne bo šlo, te kontaktiram.
Many thanks for all,
Seth
Many thanks for all,
Seth
Zgodovina sprememb…
- spremenil: Seth ()
Vredno ogleda ...
| Tema | Ogledi | Zadnje sporočilo | |
|---|---|---|---|
| Tema | Ogledi | Zadnje sporočilo | |
| » | Uvoz txt datoteke v excelOddelek: Programska oprema | 4700 (4337) | sebavet |
| » | [C#] Prosim pomagajte! Potrebujem program, ki bi pobiral podatke iz ene straniOddelek: Programiranje | 2581 (2191) | David1994 |
| » | [VB 2005] branje tekstaOddelek: Programiranje | 1573 (1241) | mNeRo |
| » | [VB] graf, merilnik hitrosti, termometerOddelek: Programiranje | 2222 (2087) | darkolord |
| » | makroOddelek: Programiranje | 1100 (925) | draganm1 |