Newsgroup: italia.prato.discussioni
Titolo: [VB6] per il vodka

Wodka,
una domandina per te.
Hai presente la funzione format$, vero? :)
Supponiamo che
strData = "27/08/2003"
e che quindi
strFormattedData = format$(strData, "MMM yy") = "AGO 03"
Questo e' vero nelle impostazioni italiane.
Ma se io volessi ottenere le tre lettere iniziali nello standard che mi
pare a me, *senza* cambiare le impostazioni di tutto il sistema, c'e'
verso?
Ad esempio, vorrei una MyFormat$ tale che
MyFormat$(strData, "MMM yy", "IT") = "AGO 03"
MyFormat$(strData, "MMM yy", "EN") = "AUG 03"
MyFormat$(strData, "MMM yy", "FR") = "AOU 03"
passandole la lingua come terzo parametro.
Al limite mi va bene anche una cosa del tipo:
...
<setto le impostazioni nella lingua che voglio>
strFormattedData = "... quello che e' ..."
<salvo la variabile in un db>
<rimetto le impostazioni come erano prima>
...
Se po' fa' o nun ze po' fa' ?
Grazie
N! Xau
La sede del Movimento Salvaguardia e Tutela Cazzate:
http://ilovemiliofede.altervista.org

E' arabo, aramaico... ???

N! Xau ha scritto:

abicche amecche , ma di chhe vu parlate,
capisco che sia u linguaggio di programmazione , ma sinceramente non ci
capisco una mazza.....

N! Xau wrote:
ti invio un pezzetto di codice dopo....appena possibile

 E' arabo, aramaico... ???
ROTFL
:D
-- 
N! Xau
keep in mind the power of ANTANI
http://ilovemiliofede.altervista.org


postalo qui se puoi
ciao :)
-- 
N! Xau
la sede di italia.prato.discussioni
http://ipod.altervista.org

 <rimetto le impostazioni come erano prima>
Terrificante, se e' solo per qualche lingua e i mesi ti conviene tenerti un
array di (12,numero di lingue) dimensioni dove tieni memorizzati i valori
dei mesi e pescare di li'.

Gianni di Pastrano ha scritto:

he he, e' proprio quello che avevo fatto (e che vorrei sostituire)
strData = "27/08/2001"   ' ad esempio
strMesi = "JANFEBMARAPRMAYJUNJULAUGSEPOCTNOVDEC"
strTempData = format$(strData, "MM yyyy")
strFormattedData = mid(strMesi, ((Val(Mid(strData, 4, 2)) - 1) * 3 + 1,
3) & " " & Mid(strTempData, 4)
ciao :)
N! Xau

 1, 3) & " " & Mid(strTempData, 4)
ma hai visto l'esempio?
c'è il file risorse ....usalo!
Vantaggi:
-il file risorse vien compilato insieme all'exe...non c'è nulla di
esterno...vien caricato in memoria ...è il metodo più veloce!
-centralizzare e parametrizzare tutto ...è cosa buona e giusta.
E' la differenza fra programmazione studentesca e professionale:
Un giorno arriverà qualcuno e ti chiederà l'applicazione in inglese
oppure di cambiare alcuni testi in qualche form...e tu che fai?...riscrivi
mezza applicazione?
Vai alla caccia di tutti i messaggi affogati nel codice?
...io cambio il file risorse...ricompilo...e do la nuova versione!
Svantaggi:
il file risorse si aggancia all'exe....e lo fa aumentare in dimensioni!
Con i pc di oggi non c'è problema.....
certo se fai come ho visto fare un file risorse di 180M perchè zeppo di
immagini!!!...beh si torna li
un conto è fare i programmi in maniera amatoriale
e un conto in maniera professionale!
Il guaio è che spesso vai a proporre un programma da qualcuno che ha come
paragone il prezzo che gli fa il figliolo del lattaio!
In genere gli lascio fare...tanto prima o poi esploderà tutto!
Precauzioni:
Il file di risorse non dovrebbe essere usato come file di config!
e nemmeno il registro di sistema....
benchè in vb6 non sia immediato da fare (ma nemmeno impossibile...è solo
complicato e noioso)
Microsssssoft
consiglia di usare i file XML (che in NET hanno un bel supporto)
In realtà non sono che file di testo...ma di fatto è lo standard imposto.
Se vedi ad esempio il web.config di un sito web in NET....vedi che è XML
lo stesso IIS 6 lo comandi tramite file xml
Salutos!
:-)
-------------------------------------------------------------
Votate gente Votate
http://www.villaceleste.it/ipod/sondax/default.asp
lasciate una traccia, un rutto, una foto a......
http://www.villaceleste.it/ipod/default.asp

 strTempData = format$(strData, "MM yyyy")
Metterei un semplice select case (ovviamente, come diceva w40, se devi fare
molte altre variazioni, file risorse). Un dubbio: la data come la scrivi tu
mi sa che con le impostazioni inglesi, per esempio, sballa, ma e' diverso
tempo che preferisco il Gambas al VB e non l'ho sopra al pc (quindi anche
il codice sotto e' scritto non nell'ide ma nel newsreader).
MyDate = #2/12/1969#
MyMonth = Month(MyDate)
MyYear = Year(MyDate)
select case sLinguaggio
case "inglese"
	sSTr="JANFEBMARAPRMAYJUNJULAUGSEPOCTNOVDEC"
case "turco"
	sSTr="TYHHTYUIKJKHKHJKIOLOňL.OUGPOCTNOVDEC"
end select
MyString = mid$(sStr,3*(mymonth-1)+1,3)

 MyString = mid$(sStr,3*(mymonth-1)+1,3)
č un po "spaghetti code ".......ma fai te!
Una cosa invece a cui devi fare caso č che le date...sono sempre la parte
"debole" di un database!
ogni motoreDb ha le sue idiosincrasie!
E se usi Jet....hai cattive abitudini a palla!
Se usi un po di SQL....ricordati che SQL accetta le date in formato
"americano" mm/dd/yyyy
access ci mette del suo perchč nelle query che si crea fa delle
trasformazioni
per cui se č settato "italiano" nelel impostazioni del pc  #02/11/05# č il 2
Novembre
...salvo poi fare una Conn.Execute "SELECT * From Fatture Where
DataF=#02/11/05#"
e trovare tutte le fatture dell'11 Febbraio!!!

 sSTr="TYHHTYUIKJKHKHJKIOLOňL.OUGPOCTNOVDEC"
ROTFL !
ciao


 c'č il file risorse ....usalo!
mi hai mandato un file?
non e' arrivato nulla
ciao

 E se usi Jet....hai cattive abitudini a palla!
No, assolutamente: l'avro' usato si e no tre volte, e di vb comprai l'1.0
per primo. Non programmando per lavoro ho sempre preferito usare formati di
archiviazione che ben conoscevo, quindi, miei: mi ero fatto il motore, e,
testo o binari, i dati li salvavo in quel modo, gestendomi autonomamente
record e indici, e risparmiandomi appunto le problematiche degli archivi:
sulle prestazioni risolvevo grazie all'uso massivo di api, di ocx ne avro'
usati tre in vita mia :-)

 news:%cXgf.2348$gC1....@nntpserver.swip.net...
in VB6 risposta ci son degli allegati!
altrimenti dammi una email!
...o al metto sul forum fai te...dimmi come!