Reporting

Απ: PrintDocument και

gmeles — Mon, 24 Apr 2006 04:08:44 GMT

Καλό πάσχα και καλή ξεκούραση (σε όλους)

Απ: PrintDocument και

Panagiotis Kefalidis — Sat, 22 Apr 2006 08:30:27 GMT

Θα σου γράψω ένα παράδειγμα μόλις βρω γυρίσω την Δευτέρα πίσω..Τώρα βρίσκομαι εκτός και δεν εχω και πολύ χρόνο..Να ξεκουραστούμε και λίγο βρε αδελφέ..

Απ: PrintDocument και

gmeles — Fri, 21 Apr 2006 07:00:50 GMT

Επίσης, τι εννοείς με regular expression?

Απ: PrintDocument και

gmeles — Fri, 21 Apr 2006 06:59:13 GMT

Το έκανα και με split και για κάθε spit άνω τον 20 χαρακτήρων να αλλάζει γραμμή αλλά και πάλι δεν έχω καταλάβει πως να το κάνω να μην αλλάζει από εκεί και πέρα σε κάθε κενό αλλά μόνο πριν τους 40 χαρακτήρες. (Για την ακρίβεια το έκανα βάζοντας ένα πάνω όριο αλλά αν η πρώτη γραμμή έχει για παράδειγμα 30 χαρακτήρες, η 2η θα έχει >10 και η 3η άλλους πχ 20. Οπότε καταλαβαίνεις ότι αυτό δεν είναι ιδιαίτερα όμορφο αισθητικά

Απ: PrintDocument και

gmeles — Thu, 20 Apr 2006 20:17:13 GMT

μπορείς να δώσεις sample? θα ήμουν υπόχρεος.

Απ: PrintDocument και

Panagiotis Kefalidis — Thu, 20 Apr 2006 19:56:30 GMT

Εγώ πάντως δεν θα έμπλεκα με manual parsing σε όλο το string..
Θα έφτιαχνα ένα array απο το string με delimeter το κενό.
Στην συνέχεια μια loop η οποία θα περνούσε ενα ενα τα rows του array κρατώντας
το length του.. Εάν το length ξεπερνάει τους 20 char ή υπάρχει τελεία στο τέλος του, τότε να αλλάζει γραμμή..Για πολύ μεγάλα strings ίσως είναι λίγο memory eater, οπότε καλό θα ήτανε να σπάς το string πρωτού το δώσεις για parse..
Ένας άλλος τρόπος είναι και με regular expression..

PrintDocument και

gmeles — Thu, 20 Apr 2006 18:16:34 GMT

Καλημέρα ουσιαστικά αυτό που έχω κολλήσει είναι:
έχω μια περιγραφή προϊόντος.
Οι χαρακτήρες και ο αριθμός αυτών είναι σε τυχαία θέση και με τυχαίο πλήθος και θέλω στην εκτύπωση να βγαίνουν στην πρώτη σειρα max οι 20 πρώτοι χαρακτήρες του string στην δεύτερη οι άλλοι 20 κοκ με την διαφορά ότι μια λέξη δεν μπορεί να κόβεται στην μέση αλλά πρέπει πρέπει η αλλαγή της γραμμής να γίνεται είτε στο κενό είτε στην τελεία. Έχω κάνει την παρακάτω μπακάλικη function αλλά από την δεύτερη γραμμή και μετά μου αλλάζει γραμμή σε κάθε κενό. Καμιά ιδέα

Public Function splitItemDescription(ByVal st As String, ByVal intLength As Integer) As String
Dim o, i As Integer
Dim k, m As String
Dim newLine As Boolean
Dim Cpos As Integer

k = ""
m = ""
newLine = False

' Remove double spaces from string

st = Trim(st)
Cpos = InStr(1, st, " ")

While Cpos <> 0
m += Strings.Left(st, Cpos)
st = Trim(Strings.Mid(st, Cpos + 1))
Cpos = InStr(1, st, " ")
'MessageBox.Show(Cpos, "Cpos")
End While

m += st
st = m

Dim maxchars As Integer = 20
Dim sympos1, sympos2 As Integer
Dim firstsym As Boolean

firstsym = True
sympos1 = 0
sympos2 = 0
o = 1
For i = 0 To st.Length - 1
m = st.Chars(i)
k += m
If (Char.IsSymbol(m) Or m = " ") And k.Length > intLength * o Then
'st = SplitString(st, i)
o += 1
k += Chr(10) + Chr(13)
End If
Next
splitItemDescription = k
End Function