Delete a char from string ?

Hi,
I want to delete a char from string. i used the following function.
String f = formulla.replace('[','');
The above function doesnt work as it tells me to put a space or some char in 2nd parameter which i dont want. i just want to delete all occurences of some specific char in a string.
Any suggestion.
Thanks alot.

u can do:
String before;
char charToReplace;
StringBuffer tempBuf = new StringBuffer(before);
for (int i=0; i<tempBuf.length(); i++)
if (tempBuf.charAt(i)==charToReplace)
tempBuf.deleteCharAt(i);
String after = tempBuf .toString(); HTH
Yonatan

Similar Messages

Delete last char from a console window.

Hey all, could be a silly question.......
Is it possible to delete a char from a console window?
e.g.
                 System.out.print("-");
               System.out.print("|");
               System.out.print("/");
               System.out.print("\\");I'm trying to give the illusion of the line spinning, but cant delete the last printed character. I've tried adding "\b" but with no joy.
And help would be nice, as it's the little things that always take the longest!
T.

@Op. You can use JCurses if you accept that your code might not execute on all platforms.
http://sourceforge.net/projects/javacurses/

Get chars from string of numerals

here is what I would like to accomplish:
Put the last four integers of the systemDate into a variable so I can do some math with them.
Thanks.

Excellent. Thank you for the info. Very helpful.
Dewey
From: jchunick [email protected]
Sent: Friday, June 03, 2011 4:20 PM
To: Dewey Parker
Subject: Re: get chars from string of numerals
This is a post I made for the wiki which should help: http://director-online.com/dougwiki/index.php?title=Undocumented_Lingo#the_systemDate

Delete char from string

hi,
i have field like that 12-3456
and i wont to delete '-' to have 123456
what is the best way to do that?
Regards

Hi,
TRANSLATE field USING '- '.
CONDENSE field NO-GAPS.
The TRANSLATE command replaces al '-' with blanks and the CONDENSE, NO-GAPS compresses the string to remove all spaces/blanks.
Cheers,
Aditya

Deleting all elements from array and array to spreadsheet string

Hello,
I would like to write a new data file for each "recording" session without closing the VI. My problem is that the last "recording" session's data is at the top of every successive session's text file. I do not want this. I've tried to delete all rows from the array after my array to spreadsheet string function, but I think the problem is somewhere with the shift register and how the array is built. I'm not too familiar with LabView and this aspect of my interface is driving me crazy. Attached is my code and two successive data files. I have not been able to find a solution on these or the LAVA forums. Any help would be appreciated.
Also, I know there is an easier way to write this kind of streaming data, but I need to do it this way for other devices and synchronization purposes.
Attachments:
testsecond.txt ‏90 KB
test41.vi ‏80 KB
testfirst.txt ‏78 KB

A few more comments to your code:
Your loop does not have a wait, meaning it spins the empty case millions if times per second, consuming all CPU while not doing anything. Add an indicator to [i] to see.
To clear a 2D array in one case frame, just don't wire the output tunnel and set it to "use default if unwired". You'll get an empty array. No fancy tools needed.
I probably would use an event structure and also protect the data if the save dialog is canceled.
Here's a simple draft that probably requires a bit more work but should show some of the ideas.
You should also
add some protection that the VI cannot consume all available memory if it runs forever.
Create a seperate case to save the data later if the file dialog is cancelled the first time.
LabVIEW Champion . Do more with less code and in less time .
Attachments:
test41MOD.vi ‏107 KB

Help removing char from midpoint of string using deleteCharAt()

How do you properly remove a char from a String at its midpoint? My attempt is on Line 80 and it does not want to work.
I am using [http://java.sun.com/j2se/1.3/docs/api/java/lang/StringBuffer.html|http://java.sun.com/j2se/1.3/docs/api/java/lang/StringBuffer.html] as a reference for deleteCharAt()
Am I on the right track or should I try something else?
import java.io.*;
import java.awt.*;
import java.awt.event.*;
import javax.swing.*;
import java.util.*;
public class Palindromes extends JFrame implements ActionListener
     JPanel centerPanel = new JPanel();
     JLabel enterDataLabel = new JLabel(" Enter a word or phrase with no punctuation: ");
     JTextField enterDataField = new JTextField(15);
     JLabel displayLabel = new JLabel("");
     JLabel spacer = new JLabel("");
     JButton submitButton = new JButton("Check");
     JButton clearButton = new JButton("Clear");
     public static void main(String[] args) throws IOException
          try
               UIManager.setLookAndFeel("javax.swing.plaf.metal.MetalLookAndFeel");
          catch(Exception e)
               JOptionPane.showMessageDialog(null,"The UIManager could not set the Look and Feel for this application.","Error",JOptionPane.INFORMATION_MESSAGE);
          Palindromes f = new Palindromes();
           f.setDefaultCloseOperation(JFrame.DO_NOTHING_ON_CLOSE);
         f.setSize(300,120);
           f.setTitle("Playing with Palindromes");
           f.setResizable(false);
           f.setVisible(true);
     public Palindromes()
          Container c = getContentPane();
          c.setLayout((new BorderLayout()));
        centerPanel.setLayout(new GridLayout(6,1));
               centerPanel.add(spacer);
               centerPanel.add(enterDataLabel);
               centerPanel.add(enterDataField);
               centerPanel.add(displayLabel);
               centerPanel.add(submitButton);
               centerPanel.add(clearButton);
               submitButton.addActionListener(this);
               clearButton.addActionListener(this);
               c.add(centerPanel, BorderLayout.CENTER);
               addWindowListener(
                     new WindowAdapter()
                         public void windowClosing(WindowEvent e)
                                int answer = JOptionPane.showConfirmDialog(null, "Are you sure you want to exit?", "Palindromes", JOptionPane.YES_NO_OPTION);
                                 if (answer == JOptionPane.YES_OPTION)
                                      System.exit(0);
     public void actionPerformed(ActionEvent e)
           String arg = e.getActionCommand();
          if(arg == "Check")
               String word = enterDataField.getText();
               int wordSize = word.length();
              int midpoint = wordSize/2;
               deleteCharAt(midpoint);
               StringBuffer lastHalf = new StringBuffer(word.substring(midpoint));
               StringBuffer firstHalf = new StringBuffer(word.substring(0,midpoint));
               if (lastHalf == firstHalf)
                    displayLabel.setText(word + " is a palindrome!");
               else
                    displayLabel.setText(word + " is NOT a palindrome!");
          if (arg == "Clear")
               enterDataField.setText("");
               displayLabel.setText("");
}

Looce wrote:
80 |               deleteCharAt(midpoint);
82 |               StringBuffer lastHalf = new StringBuffer(word.substring(midpoint));
83 |               StringBuffer firstHalf = new StringBuffer(word.substring(0,midpoint));line numbering courtesy of GNOME's text editor(replying to self)
deleteCharAt is an instance method of StringBuffer, so you need to have one to work with. Suggestion: drop lines 82/83 and use String result = new StringBuffer(word).deleteCharAt(midpoint).toString();

I have to generate a 4 char unique string from a long value

I got a requirment
I have to generate a 4 char unique string from a long value
Eeach char can be any of 32 character defined has below.
private static final char char_map[] = new char[]{'7','2','6','9','5','3','4','8','X','M','G','D','A','E','B','F','C','Q','J','Y','H','U','W','V','S','K','R','L','N','P','Z','T'};
So for 4 char string the possible combination can be 32 * 32 * 32 * 32 = 1048576
If any one passes a long value between 0 - 1048576 , it should generate a unique 4 char string.
Any one with idea will be a great help.

Well, a long is 64 bits. A char is 16 bits. Once you determine how you want to map the long's bits to your char bits, go google for "java bitwise operators".

How to skip 3 chars when use "scanf from string" by the parameter "format string" ?

hi, I want to read a num 123 from the string like that "sfg123" "fgd123" "ghj123"
I know that I can use "%3s" to skip 3 chars, but it will add an output to "scanf from string"
So, how to use parameter "format string" not only to skip 3 chars, but also add no output to the "scanf from string"
Solved!
Go to Solution.
Attachments:
1.JPG ‏15 KB

Hi Chenyin,
Try this VI....
I think... This is what you are expecting....
<<Kudos are welcome>>
ELECTRO SAM
For God so loved the world that he gave his one and only Son, that whoever believes in him shall not perish but have eternal life.
- John 3:16

How to get a char from a String Class?

How to get a char from a String Class?

Use charAt(int index), like this for example:
String s = "Java";
char c = s.charAt(2);
System.out.println(c);

Delete char from op concern

Hi All,
We have added a char to our op concern in dev client.
However no data is associated with this char.
Is it possible to delete this char. If so how?
Thanks,
Reddy

Hi Reddy,
Delection of Characterisitc from Op Concern is possible.
For this, first you need to see all areas where that characteristic has been assigned/used.
Follow the following steps...
Go to KECM transaction code, click on "Where used list" on the left side navigation, give the characteristic (which you want to delete) on the right hand side, then "Execute". The system will display where-all that characterstic has been used (forms, reports etc).
Delete that characteristic from all those areas of assignment and save.
Now, come to KEA0, in Data Structure, you will be able to remove that characteristic from your Operating concern.
Try and reply
Srikanth Munnaluri

Deprecated conversion from string constant to 'char*'

Hi all
I am working with strings and i cant figure out why the following
warning appears at time of build.
warning: deprecated conversion from string constant to 'char*'
It appears for the line
char *myName = "Apple.txt";
Is there anyone who can help me?
Help is welcome.
Thanks in advance.

Any reason why you aren't using NSString in place of char?
char *myName = "Apple.txt";
NSString *myName = @"Apple.txt";

DELETE ADJACENT DUPLICATES FROM itab

Hi Frends, can any one explain me about
<b>DELETE ADJACENT DUPLICATES FROM itab</b>
and can any one give me sample program using the above statement.
full points will be given for good example
Thanks and Regards
Vijaya

i am sending 2 programs to u:
DESCRIPTION: INTERACTIVE REPORT FOR SALES DOCUMENT
*FOR PRINTING SALES DOCUMENT HEADER, SALES DOCUMENT DETAILS, PARTNER
             DETAILS, SCHEDULE LINE DATA.
         D A T A D E C L A R A T I O N S                             *
INCLUDE z8vg_isro1.
INITIALIZATION.
v_chkbox = ' '.
v_chkbox1 = ''.
               S T A R T O F S E L E C T I O N                     *
SELECTION-SCREEN BEGIN OF BLOCK bl1 WITH FRAME TITLE text-028.
SELECT-OPTIONS: s_vbeln FOR i_vbak-vbeln.
"FOR RANGE OF VALUES.
SELECTION-SCREEN END OF BLOCK bl1.
A T S E L E C T I O N S C R E E N ( V A L I D A T I O N S )      *
AT SELECTION-SCREEN.
Check if record exists or not.
PERFORM zf_validations.
               S T A R T O F S E L E C T I O N                     *
START-OF-SELECTION.
*this is event blocks which is executed when the user chooses the
*corresponding function key
REFRESH i_ucomm.
CLEAR i_ucomm.
i_ucomm-ucomm = 'G002'.                               " schdl data
APPEND i_ucomm.
SET PF-STATUS 'MENU2' EXCLUDING i_ucomm.
" MENU BAR STATUS.
*populating sales order header data , item data , partner data ,
*schedule data
PERFORM zf_select_headerdata.
AT USER-COMMAND.
"This event is executed whenever the user presses a menu option 'execute
"' in the list
CASE sy-ucomm.
    WHEN 'EX01'.                            "Cancel
      LEAVE PROGRAM.
    WHEN 'GO01'.                            "for item data
      vflag = '0'.
      REFRESH i_ucomm.
      CLEAR i_ucomm.
      i_ucomm-ucomm = 'GO01'.                " item data
      APPEND i_ucomm.
      SET PF-STATUS 'MENU2' EXCLUDING i_ucomm .
      PERFORM zf_select_details.
    WHEN 'G002'.                            "for schedule data .
      REFRESH i_ucomm.
      CLEAR i_ucomm.
      i_ucomm-ucomm = 'G000'.
      APPEND i_ucomm.
      APPEND 'GO01' TO i_ucomm.
      APPEND 'G002' TO i_ucomm.
      SET PF-STATUS 'MENU2' EXCLUDING i_ucomm .
      PERFORM zf_scheduledata .
    WHEN 'G000'.
      "function code for displaying partner details.
      REFRESH i_ucomm.
      CLEAR i_ucomm.
      i_ucomm-ucomm = 'G000'.
      APPEND i_ucomm.
      APPEND 'GO01' TO i_ucomm.
      APPEND 'G002' TO i_ucomm.
      SET PF-STATUS 'MENU2' EXCLUDING i_ucomm .
      IF vflag = '1'.
        PERFORM zf_partnerdetails.
        " FOR PARTNER DETAILS OF HEADER
      ELSE.
        PERFORM zf_partnerdetails1.
        " FOR PARTNER DETAILS OF SALES ORDER ITEMS .
      ENDIF.
    WHEN 'BACK'.
      LEAVE PROGRAM.
ENDCASE.
*&      FORM TOP_OF_PAGE
TOP-OF-PAGE DURING LINE-SELECTION.
printing header for secondary list of report.
PERFORM zf_tols.
TOP-OF-PAGE.
printing hearder for basic list of report
PERFORM zf_top.
*&      Form VALIDATIONS
      subroutine to check whether record exists or not
--> p1        text
<-- p2        text
FORM zf_validations .
SELECT SINGLE vbeln FROM vbak
                 INTO i_vbak-vbeln
                       WHERE vbeln IN s_vbeln.
EXIT.
CHECK IF THE RECORD EXISTS OR NOT.
IF sy-subrc <> 0.
    MESSAGE e001.
ENDIF.
ENDFORM.                    " VALIDATIONS
*&      Form SELECT_HEADERDATA
subroutine for populating header data and other details.
--> p1        text
<-- p2        text
FORM zf_select_headerdata .
*refreshing all the internal tables.
CLEAR i_vbak.
REFRESH i_vbak.
CLEAR i_vbap.
REFRESH i_vbap.
CLEAR i_vbpa.
REFRESH i_vbpa.
CLEAR i_vbep.
REFRESH i_vbep.
*populating sales order header data , item data , partner data ,
*schedule data
SELECT vbeln
         erdat
         vkorg
         FROM vbak
        INTO TABLE i_vbak
              WHERE vbeln IN s_vbeln.
IF NOT i_vbak[] IS INITIAL.
    SELECT vbeln
           posnr
           matnr FROM vbap
           INTO TABLE i_vbap
           FOR ALL ENTRIES IN i_vbak
           WHERE vbeln = i_vbak-vbeln.
ENDIF.
IF sy-subrc <> 0.
    MESSAGE e004.
ENDIF.
SORT i_vbap BY vbeln posnr.
" SORTING TABLE WITH KEY FIELDS .
REFRESH i_mat.
CLEAR i_mat.
fetching of unique material numbers corresponding sales orderno.
LOOP AT i_vbap.
    i_mat-matnr = i_vbap-matnr.
    APPEND i_mat.
ENDLOOP.
SORT i_mat BY matnr.                      " sorting of material nos.
IF sy-SUBRC = 0.
deleting duplicate entries from table
DELETE ADJACENT DUPLICATES FROM i_mat
                           COMPARING matnr.
*endif.
REFRESH i_mat1.
CLEAR i_mat1.
populating material no and dscription .
SELECT matnr
         maktx FROM makt
                INTO TABLE i_mat1
                FOR ALL ENTRIES IN i_mat
                WHERE matnr = i_mat-matnr.
SELECT vbeln
          posnr
          parvw
          kunnr
          FROM vbpa
          INTO TABLE i_vbpa
          FOR ALL ENTRIES IN i_vbap
          WHERE vbeln = i_vbap-vbeln .
SORT i_vbap BY vbeln posnr.
REFRESH i_tvbpa.
REFRESH i_tpartf.
CLEAR i_tpartf.
*FOR FETCHING UNIQUE PARTNER FUNCTIONS
LOOP AT i_vbpa.
    i_tpartf-parvw = i_vbpa-parvw.
    APPEND i_tpartf.
ENDLOOP.
SORT i_tpartf BY parvw.
DELETE ADJACENT DUPLICATES FROM i_tpartf
                            COMPARING parvw.
SELECT spras
         parvw
         vtext
         FROM tpart
         INTO TABLE i_tvbpa
         FOR ALL ENTRIES IN i_tpartf
         WHERE parvw = i_tpartf-parvw AND spras = sy-langu.
IF NOT i_vbap[] IS INITIAL.
    SELECT vbeln
           posnr
           etenr
           ettyp
           lfrel
           edatu
           FROM vbep
           INTO TABLE i_vbep
           FOR ALL ENTRIES IN i_vbap
           WHERE vbeln = i_vbap-vbeln.
ENDIF.
SORT i_vbap BY vbeln posnr.
to fetch data from internal table to print report
LOOP AT i_vbak.
    WRITE:/1 sy-vline,10   v_chkbox AS CHECKBOX, i_vbak-vbeln,28
    sy-vline,
            30 i_vbak-erdat,48 sy-vline,
            50 i_vbak-vkorg, 132 sy-vline.
ENDLOOP.
ULINE.
ENDFORM.                    " SELECT_HEADERDATA
*&      Form ZF_SELECT_DETAILS
     SUBROUTINE FOR DISPLAYING SELECTED ITEM DETAILS DATA
--> p1        text
<-- p2        text
FORM zf_select_details .
vflag = 0.
WRITE:/1 sy-vline,10 text-006 COLOR 3,28 sy-vline,
        30 text-007 COLOR 3, 48 sy-vline,
        50 text-008 COLOR 3, 68 sy-vline,
        70 text-022 COLOR 3, 132 sy-vline.
ULINE.
CLEAR i_selvbap.
CLEAR i_final.
REFRESH i_selvbap.
REFRESH i_final.
CLEAR i_mat1.
vnline = 7.
DO.
    READ LINE vnline FIELD VALUE i_vbak-vbeln v_chkbox.
    " READING LINES FROM BASIC LIST.
    IF sy-subrc <> 0. " no lines read.
      EXIT.
    ENDIF.
    IF v_chkbox = 'X'.
      " checking of selected items from basic list.
*alpha conversion function - During conversion from the external to the
*internal format, the system checks to see
*if input is purely nummeric or not ,if not all spaces to the left of
*the value are filled with zeroes ('0').
      CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
        EXPORTING
          input = i_vbak-vbeln
        IMPORTING
          output = i_selvbap-vbeln.
      APPEND i_selvbap.
      " appending values from header line to body.
      flag = flag + 1.
      " TO CHECK VALUE OF CHECKBOX.
      CLEAR i_vbak.
      " clearing of header line after appending.
    ENDIF.
    vnline = vnline + 1.
ENDDO.
IF flag <> 0.
    CLEAR i_final.
    CHECK NOT i_selvbap[] IS INITIAL.
    LOOP AT i_selvbap.
      LOOP AT i_vbap WHERE vbeln = i_selvbap-vbeln.
        READ TABLE i_mat1 WITH KEY matnr = i_vbap-matnr BINARY SEARCH.
     IF sy-subrc = 0.
        i_final-vbeln = i_vbap-vbeln.
        i_final-posnr = i_vbap-posnr.
        i_final-matnr = i_vbap-matnr.
        i_final-maktx = i_mat1-maktx.
        APPEND i_final.
        CLEAR i_mat1.
     ENDIF.
      ENDLOOP.
      CLEAR i_selvbap.
      CLEAR i_vbap.
      CLEAR i_final.
    ENDLOOP.
ENDIF.
IF flag = 0.
    MESSAGE e005.
ENDIF.
to fetch data from internal table to print report
LOOP AT i_final.
   WRITE:/1 sy-vline,10 v_chkbox1 AS CHECKBOX,i_final-vbeln,28 sy-vline
         30 i_final-posnr, 48 sy-vline,
         50 i_final-matnr, 68 sy-vline,
         70 i_final-maktx,
         132 sy-vline.
ENDLOOP.
ULINE.
ENDFORM.                    " ZF_SELECT_DETAILS
*&      Form ZF_TOLS
      text
--> p1        text
<-- p2        text
FORM zf_tols .
*printing header of secondary list
ULINE.
WRITE:/10 text-023,20 text-001 COLOR 4, 45 text-019 COLOR 4.
WRITE: 80 text-024,90 sy-datum .
WRITE:/10 text-025,20 text-027,80 text-026,90 sy-pagno.
WRITE:/.
ULINE.
ENDFORM.                    " ZF_TOLS
*&      Form ZF_TOP
      text
--> p1        text
<-- p2        text
FORM zf_top .
*printing header of basic list
ULINE.
WRITE:/10 text-023,20 text-001 COLOR 4 ,45 text-002 COLOR 4.
WRITE: 80 text-024, 90 sy-datum.
WRITE:/10 text-025,20 text-027,80 text-026,90 sy-pagno.
ULINE.
WRITE:/1 sy-vline, 10 text-003 COLOR 3 ,28 sy-vline,
        30 text-004 COLOR 3 ,48 sy-vline,
        50 text-005 COLOR 3 ,132 sy-vline.
ULINE.
ENDFORM.                    " ZF_TOP
*&      Form ZF_PARTNERDETAILS
     SUBROUTINE FOR DISPLAYING SELECTED PARTNER DETAILS DATA
--> p1        text
<-- p2        text
FORM zf_partnerdetails .
IF vflag = 1.
    WRITE:/1 sy-vline,10 text-016 COLOR 3,28 sy-vline,
         30 text-017 COLOR 3,48 sy-vline,
           30 text-018 COLOR 3,48 sy-vline,
           70 text-021 COLOR 3, 132 sy-vline.
    ULINE.
    CLEAR i_selvbpa.
    REFRESH i_selvbpa.
    " clearing work area and body of internal tables
    REFRESH i_finalpd.
    vnline = 7.
    DO.
      CLEAR i_selvbpa.
      READ LINE vnline FIELD VALUE i_vbak-vbeln v_chkbox.
      " READING LINES FROM BASIC LIST.
      IF sy-subrc <> 0.
        " NO LINES READ
        EXIT.
      ENDIF.
      IF v_chkbox = 'X'.
        " if any value is selected
*converts any number into a string fill with zeroes, with the number at
*the extreme right.
        CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
          EXPORTING
            input = i_vbak-vbeln
          IMPORTING
            output = i_selvbpa-vbeln.
        APPEND i_selvbpa.
        CLEAR i_vbak.
        flag = flag + 1.
      ENDIF.
      vnline = vnline + 1.
    ENDDO.
    IF flag <> 0.
      CHECK NOT i_selvbpa[] IS INITIAL.
      LOOP AT i_selvbpa.
        LOOP AT i_vbpa WHERE vbeln = i_selvbpa-vbeln.
         READ TABLE i_tvbpa WITH KEY parvw = i_vbpa-parvw BINARY SEARCH
     IF sy-subrc = 0..
          i_finalpd-vbeln = i_vbpa-vbeln.
          i_finalpd-posnr = i_vbpa-posnr.
          i_finalpd-parvw = i_vbpa-parvw.
          i_finalpd-vtext = i_tvbpa-vtext.
          APPEND i_finalpd.
          CLEAR i_tvbpa.
     ENDIF.
        ENDLOOP.
      ENDLOOP.
    ENDIF.
    IF flag = 0.
      MESSAGE e005.
    ENDIF.
    LOOP AT i_finalpd.
      WRITE:/1 sy-vline,10 i_finalpd-vbeln, 28 sy-vline,
          30 i_finalpd-posnr, 48 SY-VLINE,
             30 i_finalpd-parvw, 48 sy-vline,
             70 i_finalpd-vtext, 132 sy-vline.
    ENDLOOP.
    ULINE.
ENDIF.
ENDFORM.                    " ZF_PARTNERDETAILS
*&      Form ZF_SCHEDULEDATA
     SUBROUTINE FOR DISPLAYING SELECTED ITEM SCHEDULE DATA
--> p1        text
<-- p2        text
FORM zf_scheduledata .
vflag = 0.
WRITE:/1 sy-vline,10 text-009 COLOR 3,18 sy-vline,
        20 text-011 COLOR 3,38 sy-vline,
        40 text-012 COLOR 3,58 sy-vline,
        60 text-013 COLOR 3,78 sy-vline,
        80 text-020 COLOR 3,98 sy-vline,
       100 text-015 COLOR 3,132 sy-vline.
ULINE.
CLEAR i_selvbep.
REFRESH i_selvbep.
vnline1 = 5.
CLEAR flag.
CLEAR i_final.
REFRESH i_finalsd.
DO.
    READ LINE vnline1 FIELD VALUE i_final-vbeln v_chkbox1 i_final-posnr
    .       " READING LINES FROM BASIC LIST.
    IF sy-subrc <> 0.
      EXIT.
    ENDIF.
    IF v_chkbox1 = 'X'.
*converts any number into a string fill with zeroes, with the number at
*the extreme right
      CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
        EXPORTING
          input = i_final-vbeln
        IMPORTING
          output = i_selvbep-vbeln.
      i_selvbep-posnr = i_final-posnr.
      APPEND i_selvbep.
      CLEAR i_final.
      flag = flag + 1.
    ENDIF.
    vnline1 = vnline1 + 1.
ENDDO.
IF flag <> 0.
    CHECK NOT i_selvbep[] IS INITIAL.
    LOOP AT i_selvbep.
      LOOP AT i_vbep WHERE vbeln = i_selvbep-vbeln AND posnr =
      i_selvbep-posnr.
        i_finalsd-vbeln = i_vbep-vbeln.
        i_finalsd-posnr = i_vbep-posnr.
        i_finalsd-etenr = i_vbep-etenr.
        i_finalsd-ettyp = i_vbep-ettyp.
        i_finalsd-lfrel = i_vbep-lfrel.
        i_finalsd-edatu = i_vbep-edatu.
        APPEND i_finalsd.
        CLEAR i_selvbep.
        CLEAR i_vbep.
        CLEAR i_finalsd.
      ENDLOOP.
    ENDLOOP.
ENDIF.
IF flag = 0.
    MESSAGE e005.
ENDIF.
LOOP AT i_finalsd.
    WRITE:/1 sy-vline,10 i_finalsd-vbeln,18 sy-vline,
          20 i_finalsd-posnr, 38 sy-vline,
          40 i_finalsd-etenr, 58 sy-vline,
          60 i_finalsd-ettyp, 78 sy-vline,
          80 i_finalsd-lfrel, 98 sy-vline,
         100 i_finalsd-edatu,132 sy-vline.
    CLEAR i_finalsd.
ENDLOOP.
ULINE.
ENDFORM.                    " ZF_SCHEDULEDATA
*&      Form ZF_PARTNERDETAILS1
      text
--> p1        text
<-- p2        text
FORM zf_partnerdetails1 .
vflag = 1.
WRITE:/1 sy-vline,10 text-016 COLOR 3,18 sy-vline,
          20 text-017 COLOR 3,38 sy-vline,
          40 text-018 COLOR 3,58 sy-vline,
          60 text-021 COLOR 3,78 sy-vline,
          132 sy-vline.
ULINE.
CLEAR i_selvbpa1.
REFRESH i_selvbpa1.
REFRESH i_finalpd1.
vnline1 = 7.
DO.
   CLEAR I_SELVBEP.
    READ LINE vnline1 FIELD VALUE i_final-vbeln v_chkbox1 i_final-posnr
    .       " READING LINES FROM BASIC LIST.
    IF sy-subrc <> 0.
      EXIT.
    ENDIF.
    IF v_chkbox1 = 'X'.
*converts any number into a string fill with zeroes, with the number at
*the extreme right
      CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
        EXPORTING
          input = i_final-vbeln
        IMPORTING
          output = i_selvbpa1-vbeln.
      i_selvbpa1-posnr = i_final-posnr.
      APPEND i_selvbpa1.
      CLEAR i_final.
      flag = flag + 1.
    ENDIF.
    vnline1 = vnline1 + 1.
ENDDO.
IF flag <> 0.
    CLEAR i_vbpa.
    CLEAR i_finalpd1.
    CHECK NOT i_selvbpa1[] IS INITIAL.
    LOOP AT i_selvbpa1.
      LOOP AT i_vbpa WHERE vbeln = i_selvbpa1-vbeln.
        CLEAR i_finalpd1.
     IF sy-subrc = 0.
        i_finalpd1-vbeln = i_vbpa-vbeln.
        IF i_vbpa-posnr = 0 OR i_vbpa-posnr = ''.
          i_finalpd1-parvw1 = 'NO DATA EXISTS'.
        ELSE.
          i_finalpd1-posnr = i_vbpa-posnr.
          i_finalpd1-parvw = i_vbpa-parvw.
          i_finalpd1-vtext = i_vbpa-vtext.
          i_finalpd1-kunnr = i_vbpa-kunnr.
        ENDIF.
        APPEND i_finalpd1.
        IF i_finalpd1-vbeln = i_selvbpa1-vbeln.
          EXIT.
        ENDIF.
        CLEAR i_vbpa.
        CLEAR i_finalpd1.
      ENDIF.
      ENDLOOP.
    ENDLOOP.
ENDIF.
IF flag = 0.
    MESSAGE e005.
ENDIF.
fetching data from internal table for printing.
LOOP AT i_finalpd1.
    WRITE:/1 sy-vline,10 i_finalpd1-vbeln,18 sy-vline,
         20 I_FINALPD1-POSNR, 38 SY-VLINE,
           40 i_finalpd1-parvw1,
         58 SY-VLINE,
           60 i_finalpd1-vtext,
         78 SY-VLINE,
           80 i_finalpd1-kunnr,
          132 sy-vline.
ENDLOOP.
ULINE.
ENDFORM.                    " ZF_PARTNERDETAILS1
2nd is :-
REPORT Z8NB_SHA10_1
        NO STANDARD PAGE HEADING
        LINE-COUNT 30
        LINE-SIZE 170
        MESSAGE-ID Z8NBSHADOW.
              T A B L E    D E C L A R A T I O N                     *
TABLES : LIKP. " Delivery Header.
              T Y P E      D E C L A R A T I O N                     *
**-- Type decleration for Delivery Header
TYPES : BEGIN OF T_LIKP,
          VBELN LIKE LIKP-VBELN,    " Delivery Number
          ERDAT LIKE LIKP-ERDAT,    " Date on which record was craeted
          KUNNR LIKE LIKP-KUNNR,    " Sold-to-party
          KUNAG LIKE LIKP-KUNAG,    " Ship-to-party
          TRMTYP LIKE LIKP-TRMTYP, " Means of transport
        END OF T_LIKP.
**-- Type decleration for Delivery Items
TYPES : BEGIN OF T_LIPS,
          VBELN LIKE LIPS-VBELN,    " Delivery Number
          POSNR LIKE LIPS-POSNR,    " Delivery Item Number
          MATNR LIKE LIPS-MATNR,    " Material Number
          LFIMG LIKE LIPS-LFIMG ,   " DELIVERED QTY
          MEINS LIKE LIPS-MEINS,    " Unit of Measurement
          BRGEW LIKE LIPS-BRGEW,    " Gross Weight
          GEWEI LIKE LIPS-GEWEI,    " Weight Unit
          VOLUM LIKE LIPS-VOLUM,    " Volumn
          VOLEH LIKE LIPS-VOLEH,    " Volumn Unit
        END OF T_LIPS.
**-- Type decleration for Customer Details
TYPES : BEGIN OF T_KNA1,
          KUNNR LIKE KNA1-KUNNR,    " Customer Number
          NAME1 LIKE KNA1-NAME1,                            " Name1
          NAME2 LIKE KNA1-NAME2,                            " Name2
          STRAS LIKE KNA1-STRAS,    " House/ Street Number
          REGIO LIKE KNA1-REGIO,    " Region
          ORT01 LIKE KNA1-ORT01,    " City
          LAND1 LIKE KNA1-LAND1,    " Country Key
          TELF1 LIKE KNA1-TELF1,    " First Telephone Number
       END OF T_KNA1.
**-- Type decleration for Partner Function
TYPES : BEGIN OF T_KNVP,
        KUNNR LIKE KNVP-KUNNR,      " Customer Number
        PARVW LIKE KNVP-PARVW,      " Partner Function
        KUNN2 LIKE KNVP-KUNN2,      " Cust no of business partner
        END OF T_KNVP.
**-- Type decleration for Shipment Header
TYPES : BEGIN OF T_VTTK,
        TKNUM LIKE VTTK-TKNUM,      " Shipment Number
        TNDR_CRNM LIKE VTTK-TNDR_CRNM,   " Carrier
        END OF T_VTTK.
**-- Type decleration for Shipment Item
TYPES : BEGIN OF T_VTTP,
        TKNUM LIKE VTTP-TKNUM,      " Shipment Number
        VBELN LIKE VTTP-VBELN,      " Order Number
        END OF T_VTTP.
**-- Type decleration for Material Description
TYPES : BEGIN OF T_MAKT,
        MATNR LIKE MAKT-MATNR,      " Material Number
        MAKTX LIKE MAKT-MAKTX,      " Material Description
        END OF T_MAKT.
**-- Type decleration for Final table containing all item details
TYPES : BEGIN OF T_FINAL,
        VBELN LIKE LIPS-VBELN,    " Delivery Number
        POSNR LIKE LIPS-POSNR,    " Delivery Item Number
        MATNR LIKE LIPS-MATNR,    " Material Number
        LFIMG LIKE LIPS-LFIMG ,   " DELIVERED QTY
        MEINS LIKE LIPS-MEINS,    " Unit of Measurement
        BRGEW LIKE LIPS-BRGEW,    " Gross Weight
        GEWEI LIKE LIPS-GEWEI,    " Weight Unit
        VOLUM LIKE LIPS-VOLUM,    " Volumn
        VOLEH LIKE LIPS-VOLEH,    " Volumn Unit
        MAKTX LIKE MAKT-MAKTX,    " Material Description
        END OF T_FINAL.
         C O N S T A N T     D E C E L E R A T I O N                 *
CONSTANTS: C_RE(4) TYPE C VALUE 'RE', "Bill-to-party
           C_EQ(4) TYPE C VALUE 'EQ', "Equal To
           C_I(2) TYPE C VALUE 'I'.    "Inclusion
         V A R I A B L E     D E C E L E R A T I O N                 *
DATA : V_SUM TYPE LIPS-LFIMG,       "For calculating total of Quantity.
       V_SUM_FINAL TYPE LIPS-LFIMG, "For displaying total
       V_DESC TYPE C LENGTH 20.     "Storing Description
          I N T E R N A L      D E C L A R A T I O N                 *
**-- Internal table for delivery header data
DATA: IT_LIKP TYPE STANDARD TABLE OF T_LIKP WITH HEADER LINE,
**-- Internal table for delivery item data
      IT_LIPS TYPE STANDARD TABLE OF T_LIPS WITH HEADER LINE,
**-- Internal table for bill-to-party details
      IT_KNA1 TYPE STANDARD TABLE OF T_KNA1 WITH HEADER LINE,
**-- Internal table to store partner function data
      IT_KVNP TYPE STANDARD TABLE OF T_KNVP WITH HEADER LINE,
**-- Internal table for shipment header data
      IT_VTTK TYPE STANDARD TABLE OF T_VTTK WITH HEADER LINE,
**-- Internal table for shipmant item data
      IT_VTTP TYPE STANDARD TABLE OF T_VTTP WITH HEADER LINE,
**-- Internal table for material description
      IT_MAKT TYPE STANDARD TABLE OF T_MAKT WITH HEADER LINE,
**-- Internal table for final item details
      IT_FINAL TYPE STANDARD TABLE OF T_FINAL WITH HEADER LINE,
**-- Temporary internal table for Shipment Item
      IT_VTTP_TEMP TYPE STANDARD TABLE OF T_VTTP WITH HEADER LINE,
**-- Temporary internal table for delivery item
      IT_LIPS_TEMP TYPE STANDARD TABLE OF T_LIPS WITH HEADER LINE,
**-- Temporary internal table for delivery header
      IT_LIKP_TEMP TYPE STANDARD TABLE OF T_LIKP WITH HEADER LINE.
**-- Ranges for Inquiry/Quotation
RANGES R_CUSTOMER FOR KNA1-KUNNR.
              S E L C T I O N       S C R E E N                      *
**-- Selection screen containing Delivery no as the obligatory field
SELECTION-SCREEN BEGIN OF BLOCK CHARLY WITH FRAME TITLE TEXT-001.
SELECT-OPTIONS : S_VBELN FOR LIKP-VBELN OBLIGATORY.
SELECTION-SCREEN END OF BLOCK CHARLY.
                     I N I T I A L I Z A T I O N                     *
INITIALIZATION.
**-- Clear all internal tables
CLEAR : IT_LIKP,
          IT_LIPS,
          IT_KNA1,
          IT_KVNP,
          IT_VTTK,
          IT_VTTP,
          IT_MAKT,
          IT_FINAL,
          IT_VTTP_TEMP,
          R_CUSTOMER,
          V_SUM,
          V_SUM_FINAL,
          V_DESC.
**-- Refresh all internal tables
REFRESH : IT_LIKP,
            IT_LIPS,
            IT_KNA1,
            IT_KVNP,
            IT_VTTK,
            IT_VTTP,
            IT_MAKT,
            IT_FINAL,
            IT_VTTP_TEMP,
            R_CUSTOMER.
A T S E L E C T I O N S C R E E N ( V A L I D A T I O N S )      *
AT SELECTION-SCREEN.
**-- Check the sales order number exists in the database table or not
SELECT SINGLE VBELN
                FROM LIKP
                INTO IT_LIKP
                WHERE VBELN IN S_VBELN.
**-- If no single data selected display error message.
IF SY-SUBRC <> 0.
    MESSAGE E000.
ENDIF.
               S T A R T    O F    S E L E C T I O N                 *
START-OF-SELECTION.
**-- Fetch data from the transprant tables into the internal tables
PERFORM GET_DATA.
**-- Final table for complete item data
PERFORM FINAL_DATA.
               E N D    O F    S E L E C T I O N                     *
END-OF-SELECTION.
**-- Display of Delivery Note
PERFORM DISPLAY_DATA.
*&      Form GET_DATA
      text
FORM GET_DATA .
**-- Fetch data from Delivery Header Table ( LIKP )
SELECT VBELN
         ERDAT
         KUNNR
         KUNAG
         TRMTYP
         FROM LIKP
         INTO TABLE IT_LIKP
         WHERE VBELN IN S_VBELN
         ORDER BY VBELN.
**-- Check SY_SUBRC.
IF SY-SUBRC <> 0 .
ENDIF.
**-- If record is present in IT_LIKP internal table then fetch data from
**-- Delivery Item table (LIPS)
IF NOT IT_LIKP[] IS INITIAL.
    SELECT VBELN
           POSNR
           MATNR
           LFIMG
           MEINS
           BRGEW
           GEWEI
           VOLUM
           VOLEH
           FROM LIPS
           INTO TABLE IT_LIPS
           FOR ALL ENTRIES IN IT_LIKP
           WHERE VBELN = IT_LIKP-VBELN.
**-- If record found, sort the internal table on delivery no and item no
    IF SY-SUBRC = 0.
      SORT IT_LIPS BY VBELN POSNR.
    ENDIF.
ENDIF.
**-- If record present in IT_LIPS internal table then fetch data from
**-- Shipment Item Table where delivery number is same
IF NOT IT_LIPS[] IS INITIAL.
    SELECT TKNUM
           VBELN
           FROM VTTP
           INTO TABLE IT_VTTP
           FOR ALL ENTRIES IN IT_LIPS
           WHERE VBELN = IT_LIPS-VBELN.
**-- If record found, sort the internal table on shipment no
    IF SY-SUBRC = 0.
      SORT IT_VTTP BY TKNUM.
    ENDIF.
ENDIF.
**-- Move records in IT_LIPS to an temporary internal table for
**-- removing the duplicate entries of material number.
IT_LIPS_TEMP[] = IT_LIPS[].
SORT IT_LIPS_TEMP BY MATNR.
DELETE ADJACENT DUPLICATES FROM IT_LIPS_TEMP
                             COMPARING MATNR.
IF NOT IT_LIPS_TEMP[] IS INITIAL.
**-- Fetch Material description from MAKT for all materials in
**-- IT_LIPS_TEMP
    SELECT MATNR
         MAKTX
         INTO TABLE IT_MAKT
         FROM MAKT FOR ALL ENTRIES IN IT_LIPS_TEMP
         WHERE MATNR = IT_LIPS_TEMP-MATNR.
**-- If record found, sort the internal table on Matreial No.
    IF SY-SUBRC = 0.
      SORT IT_MAKT BY MATNR.
    ENDIF.
ENDIF.
**-- Transfer data in shipment item internal table to a temporary
**-- internal table to delete duplicate entries of shipment number.
IT_VTTP_TEMP[] = IT_VTTP[].
SORT IT_VTTP_TEMP BY TKNUM.
DELETE ADJACENT DUPLICATES FROM IT_VTTP_TEMP
                             COMPARING TKNUM.
**-- If record found in IT_VTTP_TEMP then fetch shipment no and carrier
**--from Shipment Header Table(VTTK).
IF NOT IT_VTTP_TEMP[] IS INITIAL.
    SELECT TKNUM
           TNDR_CRNM
           FROM VTTK
           INTO TABLE IT_VTTK
           FOR ALL ENTRIES IN IT_VTTP_TEMP
           WHERE TKNUM = IT_VTTP_TEMP-TKNUM.
**-- If record found, sort the internal table on shipment no
    IF SY-SUBRC = 0.
      SORT IT_VTTK BY TKNUM.
    ENDIF.
ENDIF.
**-- Move the data of IT_LIKP to an internal table to remove the
**-- duplicate entries of sold-to-party number.
IT_LIKP_TEMP[] = IT_LIKP[].
SORT IT_LIKP_TEMP BY KUNAG.
DELETE ADJACENT DUPLICATES FROM IT_LIKP_TEMP

Anyone knows how to delete a file from a directory?????

hi there
anyone has any idea on how to delete a file from a directory? delete(String filename)? thank you.

Hi,
Check this link.
Gives you an example code to show how to delete a file.
http://examples.oreilly.com/jenut/Delete.java
Hope this helps.
Roopasri Vittal
Developer Technical Support
Sun Microsystems
http://sun.com/developers/support

How to delete a row from a SQL Server CE Table with multiple JOINs?

I want to delete a record from a SQL Server CE table.
There are 3 tables scripts, options and results. I would like to remove a record from the results table. The where clause contains dynamic information which retrieved via other queries to different tables in the same database. These queries work fine and deliver
the desired data.
The Compact server is a clone of a remote table created using the sync framework. The same query to the remote table works fine.
The error I get is:
There was an error parsing the query. [ Token line number = 1,Token line offset = 10,Token in error = from ]
The code that throws the exception is as follows:
Dim connLoc As SqlCeConnection = New SqlCeConnection(My.Settings.ConnectionString)connLoc.Open() Dim strDel As String = "Delete r from ResultsTable r inner join OptionsTable o ON o.TestName=r.TestName inner join ScriptTable c ON r.TestName=c.TestName WHERE r.TestName = '" & ds1Loc.Tables(0).Rows(0)(1) & "' AND [Index] = '" & lstIndex & "'"Dim cmdDel As SqlCeCommand = New SqlCeCommandcmdDel.CommandText = strDelcmdDel.Connection = connLoccmdDel.ExecuteNonQuery()
The values held in ds1Loc.Tables(0).Rows(0)(1) and lstIndex are
correct so should not be the problem.
I also tried using parameterised queries
Dim strDel As String = "Delete r from [ResultsTable] r inner join [OptionsTable] o ON o.TestName=r.TestName inner join [ScriptTable] c ON r.TestName=c.TestName WHERE r.TestName = @TestName AND [Index] = @lstIndex"
Dim cmdDel As SqlCeCommand = New SqlCeCommand cmdDel.CommandText = strDel
With cmdDel.Parameters
.Add(New SqlCeParameter("@TestName", ds1Loc.Tables(0).Rows(0)(1)))
.Add(New SqlCeParameter("@lstIndex", lstIndex))
End With
cmdDel.Connection = connLoc cmdDel.ExecuteNonQuery()
I have tried replacing the "=" with "IN" in the the WHERE clause but this has not worked.
Is it the join that is causing the problem? I can do a select with the same search criteria and joins from the same database.
Also this query works with SQL Server. Is it perhaps that SQL CE does not support the Delete function the same as SQL Server 2008? I have been looking at this for a while now and cannot find the source of the error. Any help would be greatly appreciated.

Hello,
In SQL Server Compact, we can use join in FROM clause. The DELETE statement fail may be caused by the FOREIGN KEY constraint.
Please refer to:
DELETE (SQL Server Compact)
FROM Clause (SQL Server Compact)
Regards,
Fanny Liu
Fanny Liu
TechNet Community Support

HOW TO DELETE THE ROW FROM DATABASE

hI,
Iam pasting my code below.My problem isi retrieve rows from database and display them in jsp page in rows.For each row there is delete hyperlink.Now when i click that link i should only delete the row corresponding to that delete link temporarily but it should not delete the row from database now.It should only delete the row from database when i click the save button.How can i do this can any one give some code.
thanks
naveen
[email protected]
<%@ page language="java" import="Utils.*,java.sql.*,SQLCon.ConnectionPool,java.util.Vector,java.util.StringTokenizer" %>
<html>
<head>
<meta http-equiv="Content-Language" content="en-us">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>Item Details</title>
<script>
function submitPage()
document.details.action = "itemdetails.jsp" ;
document.details.submit();
</script>
</head>
<body>
<form name="details" action="itemdetails.jsp" method="post">
<%
ConnectionPool pool;
Connection con = null;
Statement st;
ResultSet rs =null;
%>
<table border="0" cellpadding="0" cellspacing="0" width="328">
<tr>
<td width="323" colspan="4"><b>Reference No :</b> <input type="text" name="txt_refno" size="14">
<input type="submit" value="search" name="search" ></td>
</tr>
<tr>
<td width="81" bgcolor="#000099"><font color="#FFFFFF"><b>Item Code</b></font></td>
<td width="81" bgcolor="#000099"><font color="#FFFFFF"><b>Item No</b></font></td>
<td width="81" bgcolor="#000099"><font color="#FFFFFF"><b>Amount </b></font></td>
<td width="80" bgcolor="#000099"> </td>
</tr>
<%
pool= new ConnectionPool();
Utils utils = new Utils();
double total =0.00;
String search =utils.returnString(request.getParameter("search"));
if(search.equals("search"))
try
String ref_no =utils.returnString(request.getParameter("txt_refno"));
String strSQL="select * from ref_table where refno='" + ref_no + "' ";
con = pool.getConnection();
st=con.createStatement();
rs = st.executeQuery(strSQL);
while(rs.next())
String itemcode=rs.getString(2);
int item_no=rs.getInt(3);
double amount= rs.getDouble(4);
total= total + amount;
%>
<tr>
<td width="81"><input type=hidden name=hitem value=<%=itemcode%>><%=itemcode%></td>
<td width="81"><input type=hidden name=hitemno value=<%=item_no%>><%=item_no%></td>
<td width="81"><input type=hidden name=hamount value=<%=amount%>><%=amount%></td>
<td width="80"><a href="delete</td>
</tr>
<%
}catch(Exception e){}
finally {
if (con != null) pool.returnConnection(con);
%>
<tr>
<td width="323" colspan="4">
<p align="right"><b>Total:</b><input type="text" name="txt_total" size="10" value="<%=total%>"></td>
</tr>
<tr>
<td width="323" colspan="4">
<input type="button" value="save" name="save"></td>
</tr>
</table>
</form>
</body>
</html>

You mean when you click on the hyperlink you want that row to disappear from the page, but not delete the row from the database until a commit/submit button is pressed?
Personally, I think I'd prefer that you have a delete checkbox next to every row and NOT remove them from the display if I was a user. You give your users a chance to change their mind about their choice, and when they're done they can see exactly which rows will be deleted before they commit.
You know your problem, of course, so you might have a good reason for designing it this way. But I'd prefer not removing them from the display. JMO - MOD

Delete a char from string ?

Similar Messages

Maybe you are looking for