Community discussion forum

Formatting text

• • Reply

  10 months ago

  by cheersnorm

  AL COR

  Dublin, Ireland

  Joined 10 months ago
  Hi all I need help with the following task: User posts text into textbox/grid etc Button is pushed. The text is formatted as if it were in a spreadsheet. ie Only x words per row Each cell is of equal length and width. To put it another way; The first letter of the second word of the first row. should be directly above the first letter of the second word of the second row. many thanks
  Post was edited on 22/01/2009 22:40:09 Report abuse
• • Reply

  9 months ago

  by konikula

  Matej Kasper

  Trutnov, Czech Republic

  Joined 3 years ago
  Shared Function CheersomeColumnize(ByVal text$, ByVal padding_left As Boolean, Optional ByVal glue$ = " ") As String 'fizzle spaces - it means spacing is not really user scalable now While InStrRev(text, " ") > 0 text = text.Replace(" ", " ") End While Dim lines() As String = Strings.Split(text, vbCrLf) Dim words$() = Nothing, word$ = Nothing Dim maximals As New Generic.Dictionary(Of Integer, Integer), wix, tln As Integer Dim U% = lines.GetUpperBound(0) : Dim parts As New Generic.List(Of String()) 'create index (dict) of longest words, known for each column, keeping word arrays in 'parts' For Each line In lines If line <> Nothing AndAlso line.Length > 1 Then words = line.Split(CChar(" ")) : parts.Add(words) For wix = 0 To UBound(words, 1) tln = Strings.Len(words(wix)) If maximals.ContainsKey(wix) Then If tln > maximals(wix) Then maximals.Item(wix) = tln : Else : maximals(wix) = tln : End If Next Else : parts.Add(New String() {line}) End If Next 'pad all words from 'parts' according to max index Dim output(U) As String, noop As Boolean = CBool(maximals.Count = 0) For i As Integer = 0 To U words = parts(i) If Not noop Then For j As Integer = 0 To UBound(words) word = words(j) tln = Strings.Len(word) If tln < maximals(j) Then If padding_left Then : words(j) = Strings.LSet(word, maximals(j)) : Else : words(j) = Strings.RSet(word, maximals(j)) : End If End If Next End If output(i) = Strings.Join(words, glue) Next Return Strings.Join(output, vbCrLf) End Function
  Report abuse
• • Reply

  9 months ago

  by konikula

  Matej Kasper

  Trutnov, Czech Republic

  Joined 3 years ago
  try that, but if you want to do it interactive (means user will edit), I would be curious if you can work it out for padding_right :)
  Report abuse