» Pat

Is this too big? ;/

Welcome! (8 (ya sup)

Well so do I. But I don't do it in LMS or so. That's just unfair. :/

k sry watched digimon years ago. :C

Note. I survive NONE, I REPEAT NONE AND NOT ANY asuras when I'm stoned.

GOD IM SO STUPID. EMP != SOUL.

:|

Even if it's against the rules of the internet, I don't watch anime. Sorrrrrrrrrrrrrrrrrrrrry.

Remember TGs for 5 coupons? (8

All of the above.

Well actually, that's exactly what it means.

LOL I KNOW RIGHT.

If stupid people feel intimidated by others, there's only a few things that they can do: Thoughtless violence Start talking about glittering things Tell you how awesome they think they are &to be ontopic; Soul Breaker is heavily based on int. So don't overdo it with your str. 1) Soul Breaker Base Damage = Physical Total Damage + {(SkillLV * Player's INT) * 5} + Random Damage (500 ~ 1000) 2) Final Damage = Soul Breaker Base Damage / Enemy DEF + Soul Breaker Base Damage

http://tinyurl.com/q2fmte ...

Yeah...kick...

Agree'd.

Get some skolls.

Should I have mentioned we're talking about VBA instead of .net? LOL. Sorry 4got. qq Option Explicit On Option Strict On Option Compare Text Imports System Imports System.Data Public Class Form1 Private dsDaten As New DataSet Private Sub cmdOpenFile1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdOpenFile.Click With dlgÖffnen .CheckFileExists = True .ShowReadOnly = False .Filter = "XML Files (*)|*.xml" .FilterIndex = 2 If .ShowDialog = DialogResult.OK Then DataSetEinlesen(.FileName) End If End With End Sub Private Sub DataSetEinlesen(ByVal dateiName As String) dsDaten.ReadXml(dateiName) TabellenFüllen() End Sub Private Sub TabellenFüllen() With cmbTabellen .BeginUpdate() With .Items .Clear() For Each tbl As DataTable In dsDaten.Tables .Add(tbl.TableName) Next End With .EndUpdate() End With End Sub Private Sub cmbTabellen_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles cmbTabellen.SelectedIndexChanged If cmbTabellen.SelectedIndex < 0 Then Exit Sub Dim tabelle As String = cmbTabellen.Items(cmbTabellen.SelectedIndex).ToString SpaltenFüllen(tabelle) End Sub Private Sub SpaltenFüllen(ByVal tableName As String) With lstSpalten .BeginUpdate() With .Items .Clear() For Each dc As DataColumn In dsDaten.Tables(tableName).Columns .Add(dc.ColumnName) Next End With .EndUpdate() End With End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click If Not lstSpalten.SelectedItem Is Nothing Then lstAdded.Items.Add(lstSpalten.SelectedItem) lstSpalten.Items.Remove(lstSpalten.SelectedItem) Else MsgBox("Bitte wählen sie einen Listeneintrag.") End If End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click If Not lstAdded.SelectedItem Is Nothing Then lstSpalten.Items.Add(lstAdded.SelectedItem) lstAdded.Items.Remove(lstAdded.SelectedItem) Else MsgBox("Bitte wählen sie einen Listeneintrag.") End If End Sub Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click With dlgfolder .ShowDialog() Dim path As String = .SelectedPath For Each item In lstAdded.Items ' XML ---> CSV code here.;( Next End With End Sub End Class Yeah, it's partially german. It's a tool for our customers, which also have access to the source code so yeah. ;( MESSY SHIT I KNOW. LOL.