Poker Forum

Come qualche utente mi ha fatto notare, non era possibile mettere le immaginette delle carte in un testo del forum. ora e' possibile farlo.

se volete scrivere Jack di picche non scrivete piu' Jp o simili ma usate il simbolo della carta in maiuscolo seguito dall'iniziale del seme in inglese (in minuscolo) il tutto tra graffa.

Sembra un casino ma non lo e':

Jp si scrive Js tra parentesi graffe --> { Js } (senza spazi) -->

Per indicare i numeri basta mettere tra graffe il numero dieci incluso0 seguito dall'iniziale minuscola del seme in inglese.

Questi sono: picche --> spades quindi "s" { 9s } { 10s }
quadri --> diamonds quindi "d" { 9d } { 10d }
fiori --> clubs quindi "c" { 9c } { 10c }
cuori --> hearts quindi "h" { 9h } { 10h }

Nb nessuno spazio tra le parentesi ed i simboli contenuti - io li ho lasciati solo per rendere visibile il modello

Ma non sarebbero mejo le parentesi quadre... e magari che racchiudessero tutte le carte tipo queste

Una chicca... dal momento della pubblicazione di una ulteriore replica l'utente non puo' + modificare il proprio messaggio precedente non sarebbe possibile apportare delle modifiche per una miglior gestione dei propri post.... se risultasse possibile come opzione

Many thanks Moreno...

le parentesi graffe????? e dove sono???? non le vedo sulla mia tastiera

Grande Moreno, secondo me questa è veramente un chicca!!!!!

Ottimo lavoro!

luis73, ora cerco il codice ascii delle graffe. intanto fai copia incolla delle altre...
ps. ti devo chiedere di rimuovere la scritta che appare sulla tua immagine. Grazie

Urusee2001 ho preso nota dei suggerimenti e li ho segnalati

come vedi ho già modificato. avevo capito. pardon

si sarebbe utile fra quadre così si può fare copia/incolla dalla history, il problema è che nn tutte le room ce l'hanno uguale a pokerstars. per me può andar bene anche così..

prova:
Dealt to barbetta
moumoun: folds
barbetta: raises $1 to $1.50
gws29: calls $1.50
justinka: folds
Ironbox: folds
LOWBUDGET333: folds
*** FLOP ***
barbetta: checks
gws29: bets $2.50
barbetta: raises $2.50 to $5
gws29: calls $2.50
*** TURN ***
barbetta: bets $5.50
gws29: calls $5.50
*** RIVER ***
barbetta: bets $9
gws29: raises $19.65 to $28.65 and is all-in
barbetta: calls $19.65
*** SHOW DOWN ***
gws29: shows (two pair, Kings and Threes)
barbetta: shows (two pair, Aces and Threes)
barbetta collected $79.05 from pot

Avevo un pò di tempo da perdere e mi son fatto una macro in VBA su foglio Excel (l'unico che utilizzo) per trasformare lo storico delle mani di Pokerstars nel formato Pokernews.

Se qualcuno è interessato queste sono le istruzioni per creare il progrmma, poi vi spiego come utilizzarlo:

Bisogna Aprire un foglio Excel nuovo, selezionare strumenti > Macro > Visual basic editor

Dal menu dell'editor selezionare Inserisci > moduli

doppio click su Moduli1 e, nel foglio bianco che si apre, incollate il codice seguente:

Sub formattaPstar()

For a = 1 To 1000

For b = 1 To 100

If Mid$(Cells(a, 1).Value, b, 1) = "[" Then

If Mid$(Cells(a, 1).Value, b + 3, 1) = "]" Then

Cells(a, 1).Value = Left$(Cells(a, 1).Value, b - 1) + "{" _

+ Mid$(Cells(a, 1).Value, b + 1, 2) + "}"

ElseIf Mid$(Cells(a, 1).Value, b + 6, 1) = "]" Then

Cells(a, 1).Value = Left$(Cells(a, 1).Value, b - 1) + "{" _

+ Mid$(Cells(a, 1).Value, b + 1, 2) + "}{" + _

Mid$(Cells(a, 1).Value, b + 4, 2) + "}"

ElseIf Mid$(Cells(a, 1).Value, b + 9, 1) = "]" Then

If Mid$(Cells(a, 1).Value, b + 11, 1) <> "[" Then _

Cells(a, 1).Value = Left$(Cells(a, 1).Value, b - 1) _

+ "{" + Mid$(Cells(a, 1).Value, b + 1, 2) + "}{" _

+ Mid$(Cells(a, 1).Value, b + 4, 2) + "}{" _

+ Mid$(Cells(a, 1).Value, b + 7, 2) + "}"

If Mid$(Cells(a, 1).Value, b + 11, 1) = "[" Then _

Cells(a, 1).Value = Left$(Cells(a, 1).Value, b - 1) _

+ "{" + Mid$(Cells(a, 1).Value, b + 1, 2) + "}{" _

+ Mid$(Cells(a, 1).Value, b + 4, 2) + "}{" _

+ Mid$(Cells(a, 1).Value, b + 7, 2) + "}{" _

+ Mid$(Cells(a, 1).Value, b + 12, 2) + "}"

ElseIf Mid$(Cells(a, 1).Value, b + 12, 1) = "]" Then

If Mid$(Cells(a, 1).Value, b + 14, 1) <> "[" Then _

Cells(a, 1).Value = Left$(Cells(a, 1).Value, b - 1) _

+ "{" + Mid$(Cells(a, 1).Value, b + 1, 2) + "}{" _

+ Mid$(Cells(a, 1).Value, b + 4, 2) + "}{" _

+ Mid$(Cells(a, 1).Value, b + 7, 2) + "}{" _

+ Mid$(Cells(a, 1).Value, b + 10, 2) + "}"

If Mid$(Cells(a, 1).Value, b + 14, 1) = "[" Then _

Cells(a, 1).Value = Left$(Cells(a, 1).Value, b - 1) _

+ "{" + Mid$(Cells(a, 1).Value, b + 1, 2) + "}{" _

+ Mid$(Cells(a, 1).Value, b + 4, 2) + "}{" _

+ Mid$(Cells(a, 1).Value, b + 7, 2) + "}{" _

+ Mid$(Cells(a, 1).Value, b + 10, 2) + "}{" _

+ Mid$(Cells(a, 1).Value, b + 15, 2) + "}"

ElseIf Mid$(Cells(a, 1).Value, b + 15, 1) = "]" Then _

Cells(a, 1).Value = Left$(Cells(a, 1).Value, b - 1) + "{" _

+ Mid$(Cells(a, 1).Value, b + 1, 2) + "}{" _

+ Mid$(Cells(a, 1).Value, b + 4, 2) + "}{" _

+ Mid$(Cells(a, 1).Value, b + 7, 2) + "}{" _

+ Mid$(Cells(a, 1).Value, b + 10, 2) + "}{" _

+ Mid$(Cells(a, 1).Value, b + 13, 2) + "}"

b = 100

End If

End If

Next

Next
Cells.Select

Selection.Replace What:="{T", Replacement:="{10", LookAt:=xlPart, _

SearchOrder:=xlByRows, MatchCase:=False
End Sub

A questo punto salvate col nome che più vi aggrada il file e quando avete una hand history di pokerstar da postare sul forum aprite questo file, la copiate sul foglio1, selezionate Strumenti>MACRO>Macro (oppure alt+F8) e selezionate formattaPstar.

La copiate così come viene e la incollate sul forum.

Dovrebbe funzionare, se vi va usatelo: non c'è copiright

beh, non ho parole... gran lavoro!

Magari si poteva ottimizzare il codice, ma per le poche risorse che utilizza, va bene così.
Grazie Moreno.

bè che dire... eccetto che sono a digiuno di qualsiasi concetto informatico... mi accodo... complimenti per il buon lavoro....

ps: che significa che mo' avremmo finalmente anche noi le immaginette????? non ti faccio pressioni ...pero' sarebbe molto apprezzato ...

Ho corretto un piccolo errore e ho ottimizzato le variabili.
Così funziona meglio ed è più leggibile.

Sub formattaPstar()
For a = 1 To 1000

mystring = Cells(a, 1).Value

For b = 1 To 100

If Mid$(mystring, b, 1) = "[" Then

If Mid$(mystring, b + 3, 1) = "]" Then

mystring = Left$(mystring, b - 1) + "{" _

+ Mid$(mystring, b + 1, 2) + "}"

ElseIf Mid$(mystring, b + 6, 1) = "]" Then

mystring = Left$(mystring, b - 1) + "{" _

+ Mid$(mystring, b + 1, 2) + "}{" + _

Mid$(mystring, b + 4, 2) + "}" _

+ Right$(mystring, Len(mystring) - b - 6)

ElseIf Mid$(mystring, b + 9, 1) = "]" Then

If Mid$(mystring, b + 11, 1) <> "[" Then _

mystring = Left$(mystring, b - 1) _

+ "{" + Mid$(mystring, b + 1, 2) + "}{" _

+ Mid$(mystring, b + 4, 2) + "}{" _

+ Mid$(mystring, b + 7, 2) + "}"

If Mid$(mystring, b + 11, 1) = "[" Then _

mystring = Left$(mystring, b - 1) _

+ "{" + Mid$(mystring, b + 1, 2) + "}{" _

+ Mid$(mystring, b + 4, 2) + "}{" _

+ Mid$(mystring, b + 7, 2) + "}{" _

+ Mid$(mystring, b + 12, 2) + "}"

ElseIf Mid$(mystring, b + 12, 1) = "]" Then

If Mid$(mystring, b + 14, 1) <> "[" Then _

mystring = Left$(mystring, b - 1) _

+ "{" + Mid$(mystring, b + 1, 2) + "}{" _

+ Mid$(mystring, b + 4, 2) + "}{" _

+ Mid$(mystring, b + 7, 2) + "}{" _

+ Mid$(mystring, b + 10, 2) + "}"

If Mid$(mystring, b + 14, 1) = "[" Then _

mystring = Left$(mystring, b - 1) _

+ "{" + Mid$(mystring, b + 1, 2) + "}{" _

+ Mid$(mystring, b + 4, 2) + "}{" _

+ Mid$(mystring, b + 7, 2) + "}{" _

+ Mid$(mystring, b + 10, 2) + "}{" _

+ Mid$(mystring, b + 15, 2) + "}"

ElseIf Mid$(mystring, b + 15, 1) = "]" Then _

mystring = Left$(mystring, b - 1) + "{" _

+ Mid$(mystring, b + 1, 2) + "}{" _

+ Mid$(mystring, b + 4, 2) + "}{" _

+ Mid$(mystring, b + 7, 2) + "}{" _

+ Mid$(mystring, b + 10, 2) + "}{" _

+ Mid$(mystring, b + 13, 2) + "}"

b = 100

End If

End If

Next

Cells(a, 1).Value = mystring

Next
Cells.Select

Selection.Replace What:="{T", Replacement:="{10", LookAt:=xlPart, _

SearchOrder:=xlByRows, MatchCase:=False
End Sub

arabo o aramaico antico ???

ma qui ho a che fare con dei geni..... comunque complimenti sull fiducia

Provato, ottimo, grande tool

provato,perfetto e gran bel lavoro